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DÄTABOX 


Außerirdische greifen die Erde an. Können Sie sie 
abweh re n? 


Das ist die Software 
zur PC International 
jeden Monat neu 

DÄTABOX: 

- mehr als der übliche 
Software-Service 

- bringt ergänzend 
sämtliche Listings 
der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette. 

- Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

- Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

- erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes. 

- Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 


Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 


Inland: 


Ausland: 


Einzelpreis 
zzgl. Versandkosten 

24,- DM 
4,- DM 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 

Kassette 

Inland: 

Einzelpreis 
zzgl. Versandkosten 

14,- DM 
4,- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkosten 

14,- DM 
6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 

Bitte benutzen Sie die Bestellkarte. 
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Von einem, der auszog, das 
Handbuch zu verstehen... 



Anleitungen zu Computersoftware scheinen sich immer mehr zu dem zu wan¬ 
deln, was man im herkömmlichen Sinne als Realsatire bezeichnet. Sie können 
heute fast jedes Handbuch einer beliebigen Software auf schlagen und darin 
blättern; die eine oder andere vergnügliche Stunde ist Ihnen sicherlich 
gewiß. 

Sollten Sie allerdings eine Software käuflich erwerben und versuchen, sich 
anhand der Anleitung einen Einstieg in die Vorgehensweisen des gekauften 
Programms zu verschaffen, dann kann es leicht passieren, daß Ihnen das 
Lachen im Halse steckenbleibt. Was ist es denn nun, das derartige Qualitä¬ 
ten ausmacht? Inkompetenz oder Spar sucht? Im Sinne des Anwenders muß so 
etwas in jedem Fall, gelinde gesagt, als Unverschämtheit bezeichnet werden. 
Bestenfalls hapert es in den sogenannten Anleitungen an der Sprache. 
Schlecht formulierte Sätze, Rechtschreib- und Zeichenfehler lassen vermuten, 
daß da etwas auf die schnelle “zusammengesch rieben “ wurde. Korrekturen 
kosten Geld, und die Hauptsache ist offensichtlich , daß die Seiten gefüllt 
werden. Die vielfach vertretene Meinung, daß der Umgang mit dem Compu¬ 
ter die menschliche Sprache verkommen läßt, wird hier bedenkenlos genährt. 
Könnte man diese Art der qualitativ schlechten Arbeit noch dadurch rechtfer¬ 
tigen, daß es, so die Kritisierten, schließlich darauf ankomme, die Funktions¬ 
weise einer Software zu verstehen und nicht das Bedürfnis des Käufers an 
Lektüre zu befriedigen, so gibt es letztlich keinerlei Entschuldigung für 
Handbücher, denen inhaltliche Fehler nachgewiesen werden können. Es gibt 
dafür einige Gründe, die allerdings auch den Softwarehäusern bekannt sein 
müßten: miserable Übersetzungen, Handbücher , die veraltete Versionen be¬ 
schreiben, eingedeutschte Befehle, die innerhalb des Programms nicht über¬ 
setzt wurden, oder ganz einfach fälsch beschriebene Sachverhalte. 

Daß durch solche Fehlinformationen erhebliche Schäden entstehen können, 
wird offenbar vergessen: Wer in solchen Fällen haftet, wenn beispielsweise 
fehlerhafte Beschreibungen Datenverluste verursachen , ist unklar. Hier muß 
dem Anwender eine eindeutige rechtliche Hilfe zugesagt werden, die dann 
letztlich wohl auch eine Qualitätssteigerung der Handbücher bedingen wird. 
Denn erst wenn es den Firmen an den Geldbeutel geht, besinnen sie sich. 
Schade drum... 

Ihr 



Joachim Freiburg 
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portional steift, müssen wir nun auch 
mit unserer Zeitschrift reagieren. 

Die Zahl der Leser ist seit einem Jahr 
so rückläufig, daß sich Konsequenzen 
ergeben mußten. Das heißt aber noch 
lange nicht, daß wir Sie, unsere treuen 
Leser und Wegbegleiter, nun im Stich 


lassen 


Um uns nun für das kommende Jahr 


Liebe Leser, 

seit März 1985. also fast sechs Jahre 
lang, versorgen wir Sie jeden Monat 
aufs Neue mit den interessantesten In¬ 
formationen rund um die Am- 
strad/Schneider-Computer. 

Sechs Jahre in diesem Zeitraum hat 
sich nicht nur das Erscheinungsbild un¬ 
serer Zeitschrift geändert, sondern der 
gesamte Computermarkt hai enorme 
Veränderungen erfahren. 


Unser Hauptaugenmerk lag von An¬ 
fang an beim CPC, der in diesem Zeit¬ 
raum mehrfach überarbeitet und in den 
drei Konfigurationen CPC 464/664 
und 6128 angeboten wurde Als /wei¬ 
ten Schwerpunkt haben wir als einzige 
Zeitschrift regelmäßig über den 
CP/M-Computer und das Textsystem 
Joyce berichtet. Praktische Hilfe beim 
Umgang mit allen Amstrad-Coinpu- 
tern. das haben wir uns seil jeher auf 
die Lahne geschrieben. 

Da der gesamte Computermarkt sich in 
Richtung MS-DOS bewegt und die 
Zahl der CPCIer und lovcer nicht pro- 


vorbereiten zu können, benötigen wir 
Ihre aktive Mithilfe. 

Wir bieten Ihnen im Anschluß mehrere 
Wahlmöglichkeiten, wie und in wel 
eher Form Sie Ihre ganz persönliche 
PC Amstrad in Zukunft erhalten 
wollen. 

Bitte unterstützen Sie uns bei dieser 
Aktion, je mehr Rückmeldungen wir 
erhalten, desto besser können wir auch 
in Zukunft Ihren Wünschen entspre 
chen. 

Fiir Ihre Rückantwort benutzen Sie bit 
te die dafür vorgesehene Postkarte im 
Heft. 














I—Programm 



Die nötige Energie ist nicht immer leicht zu bekommen 



Viele Spielstufen halten besondere Überraschungen bereit 



Ein grafisches Geschicklichkeitsspiel 
der Sonderklasse 

Sammeln Sie Energiekugeln in einem Labyrinth auf, aber lassen Sie sich 
nicht durch scheinbar einfache Wege verleiten. 


Hintergrundstory 

Sie sind gerade mit Ihrem Zweitraumer 
auf Dienstreise von der Erde zum Sa¬ 
turn, als Sie auf einmal feststellen, daß 
Sie leider vergessen haben, auf dem 
Mond zu tanken. Sie sehen sich nun vor 
eine schwierige Entscheidung gestellt. 
Entweder Sie lassen sich treiben, um 
nach zwölf Jahren an Ihrem Ziel anzu¬ 
kommen, oder Sie lesen das Handbuch 
Ihres Räumers, um dort einen Hinweis 
zur Rettung aus dieser Notlage zu fin¬ 
den. Nach ungefähr zwei Stunden ent¬ 
scheiden Sie sich, zum Handbuch zu 
greifen, und schon nach einigen hun¬ 
dert Seiten scheinen Sie der Lösung Ih¬ 
res Problems auf der Spur zu sein. 

Im folgenden handelt es sich um 
den entscheidenden Auszug aus dem 
Handbuch. 

Anleitung für den Notfall 

Sind Sie einmal in Energieschwierig¬ 
keiten gekommen, so sollten Sie das 
Programm RANA auf Ihrem Raum- 
CPC starten. Dieses Programm hilft 
Ihnen bei der Steuerung Ihres Energie¬ 
sammlers. Der Energiesammler ist in 


der Lage, aus der fünften Dimension 
Energie zu beziehen. Da sich der 
Mensch unter diesen Daten nichts vor¬ 
stellen kann, hilft hier das Programm 
RANA. Es stellt die Zustände dieser 
Dimension auf dem Bildschirm dar, 
und Sie können nun den Energiesamm¬ 
ler, der einem Frosch (lat. rana) ähn¬ 
lich sieht, steuern. Die einzelnen Ener¬ 
giezustände werden auf dem Bild¬ 
schirm unterschiedlich dargestellt: 
Auf Eis rutscht der Frosch, bis er wie¬ 
der festen Boden unter den “Füßen“ er¬ 
hält. Felder mit einem Riß verschwin¬ 
den, wenn sie einmal überfahren wor¬ 
den sind. Auf Feldern mit Pfeilen än¬ 
dert der Frosch seine Richtung. 

Außerdem gibt es noch Transporter, 
“Wunderkästen“ und Extras. Die 
wichtigsten Felder sind solche mit 
Energiekugeln, denn diese müssen alle 
aufgesammelt werden, um ein Bild zu 
verlassen. 

Einer Ihrer drei Energiesammler geht 
verloren, wenn Sie das Bild verlassen 
wollen oder auf ein schwarzes Feld 
fahren. 

Mit der Taste DEL können Sie das Pro¬ 
gramm anhalten und mit CLR wieder 


weiterlaufen lassen. Auf Sound-Unter¬ 
stützung mußte wegen Platzmangel 
verzichtet werde. 

Vor dem Spaß ein wenig Arbeit 

Das Programm gehört leider nicht zur 
Ausstattung dieses Räumers, daher 
sollten Sie erst einmal nachstehendes 
Listing abtippen (oder auf Databox be¬ 
stellen). Dazu sind folgende Schritte 
nötig: Zuerst müssen Sie die Listings 
FIGUR.BAS, SPRITES.BAS, ZEI¬ 
CHEN.BAS. SCHRIFT.BAS, GAME. 
BAS, RANA.BAS und SCREENS.BAS 
in der obigen Reihenfolge abtippen und 
einzeln abspeichern. Nun starten Sie 
die Programme ebenfalls in obiger Rei¬ 
henfolge. Die zwei wichtigsten Datei¬ 
en. die sich jetzt auf Ihrer Diskette be¬ 
finden sollten, sind RANA. und 
SCREENS.RAN. Das Programm wird 
nun mit RUN“RANA.“ gestartet. Das 
Programm lädt selbständig die Datei 
SCREENS.RAN nach. 

Nun sind Sie hoffentlich in der Lage, 
ihre Energiekrise zu meistern. 

(Carsten Schaar/cd) 



K. 
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für 464-664-6128 



10 REM *********************************** [1896] 
* 

20 REM * * FIGUR .BAS -==> FIGUR .DAT [1897] 
* 

30 REM *********************************** [1898] 
* 


40 DEFINT a-Z [553] 

50 MEMORY &3FFF [758] 

60 MODE 1:BORDER 0 [1436] 

70 INK 0,0:INK 1,5:INK 2,14:INK 3,26 [1182] 

80 DATA 50F,023,4EC,50F,50F,28D,43B,50F [1383] 

90 DATA 005,2F4,015,438,071,306,081,44A [2034] 

100 DATA 071,405,310,44A,071,40B,334,44A [2094] 

110 DATA 2F9,40C,40C,44D,28D,310,405,43B [1864] 

120 DATA 2AB,135,301,4EF,2AB,02C,IDA,4EF [2230] 

130 DATA 2AB,033,2D6,4EF,1B5,135,301,43A [1954] 

140 DATA 1FD,2F6,105,446,221,000,000,440 [2320] 

150 DATA 2F9,50A,0D7,44D,005,50Ä,0D7,438 [1806] 

160 DATA 0D7,4EC,50F,50F,0D7,0B7,0OO,50F [2183] 

170 DATA 023,003,081,50A,2AB,306,309,5OA [1958] 

180 DATA 2AB,402,310,50A,023,40B,334,000 [2051] 

190 DATA 2AB,3E1,40C,06F,28D,302,40B,06F [1863] 

200 DATA 2F9,1DB,3E1,015,2D0,002,302,43B [2034] 

210 DATA 294,00F,2D7,4EC,OOF,135,301,50A [1701] 

220 DATA 003,306,081,50A,4EC,000,054,50A [1721] 

230 DATA 50F,50F,1F8,50A,50F,50F,07E,50A [1269] 

240 DATA 50F,005,50F,50F,50F,06C,50F,50F [2600] 

250 DATA 0D7,012,000,50A,OD7,2F7,309,4EC [1896] 

260 DATA OD7,405,310,4EF,023,40B,334,4EF [2276] 

270 DATA 288,3E1,40C,4EF,2D2,302,40C,4EF [1890] 

280 DATA 2DF,1DB,40B,003,28B,0D9,405,06F [2243] 

290 DATA 288,0E0,32C,012,023,10B,308,43B [1767] 

300 DATA 0D7,306,O15,4EC,50F,1B0,43A,50F [1493] 

310 DATA 50F,185,4EC,50F,50F,2F9,4EE,50F [1169] 

320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 [1923] 

330 DATA 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0 [1502] 

340 DATA 1,2,2,1,0,0,0,0,1,2,3,2,1,0,0,0 [1244] 

350 DATA 0,1,2,2,1,0,0,0,0,0,1,1,0,0,0,0 [1654] 

360 FOR n=0 TO 80 STEP 40 [1795] 

370 ORIGIN n,398 [277] 

380 FOR y=0 TO 30 STEP 2 [1487] 

390 FOR x=0 TO 24 STEP 8 [1083] 

400 READ a$ [309] 

410 a=VAL("&"+a$) [1273] 

420 FOR j =0 TO 3 [705] 

430 b=a MOD 6:a=a\6 [1344] 

440 MOVE x+j*2,-y [644] 

450 IF b<4 THEN PLOTR 0,0,b ELSE PLOTR 0,- [2221] 

32,b-2 


460 NEXT j,x,y,n 

470 ORIGIN 40,368 

480 FOR y=0 TO 30 STEP 2 

490 FOR x=0 TO 30 STEP 2 

500 PLOT 110-y,x,TEST(x,30-y) 

510 PLOT 110-y,x-32,TEST(x,-2-y) 
520 NEXT x,y 

530 FOR n=0 TO 440 STEP 40 
540 ORIGIN n,368 
550 FOR y=0 TO 30 STEP 2 
560 FOR x=0 TO 30 STEP 2 
570 PLOT 160+y,30-X,TEST(x,y) 

580 PLOT 160+y,-x-2,TEST(x,y-32) 

590 NEXT x,y,n 

600 FOR n=0 TO 600 STEP 40 

610 ORIGIN n,368 

620 RESTORE 320 

630 FOR y=8 TO 22 STEP 2 

640 FOR X=8 TO 22 STEP 2 

650 READ a 

660 IF TEST(X,y-32)=2 THEN PLOT 
X,y-32,0 
670 NEXT X,y 

680 FOR m=32 TO 38 STEP 2 

690 MOVE m,-2 

700 DRAWR 0,-30,3 

710 NEXT ra,n 

720 ORIGIN 0,0 

730 FOR n=0 TO 4 STEP 2 

740 FOR y=0 TO 62 STEP 2 

750 FOR x=0 TO 38 STEP 2 


[367] 

[419] 

[1487] 

[895] 

[1452] 

[1657] 

[548] 

[1017] 

[59] 

[1487] 

[695] 

[2085] 

[1776] 

[818] 

[1233] 

[59] 

[747] 

[1205] 

[867] 

[428] 

x ,y,a : PLOT [2651] 

[548] 

[1408] 

[505] 

[396] 

[407] 

[298] 

[1117] 

[1487] 

[1416] 


760 PLOT n*20+x,y+272,TEST(158+x-n,y+336) [3321] 

770 PLOT n*20+x+120,y+272,TEST(474+x+n,y+3 [2352] 
36) 

780 NEXT x,y,n [818] 

790 ORIGIN 240,304 [223] 

800 FOR y=12 TO 18 STEP 2 [1535] 

810 FOR X=12-INT(RND*2)*2 TO 10+INT(RND*2) [2404] 
*2 STEP 2 

820 PLOT x,y,1 [597] 

830 PLOT X,y-32,1 [924] 

840 NEXT X,y [548] 

850 FOR n=0 TO 3 [569] 

860 ORIGIN 240+40*n,304 [897] 

870 FOR y=0 TO 30 STEP 2 [1487] 

880 FOR X=0 TO 30 STEP 2 [895] 

890 t=TEST(x,y-32):IF t=l THEN PLOT x,y,MI [2874] 
N(TEST(X,y)+1,3):GOTO 1010 

900 IF t<>0 THEN 1010 [312] 

910 IF TEST(X+-2 ,y-32 ) =1 THEN 1000 [1931] 

920 IF TEST(x-2,y-32)=1 THEN 1000 [950] 

930 IF TEST(x,y-30)=1 THEN 1000 [1699] 

940 IF TEST(X,y-34)=1 THEN 1000 [1413] 


950 IF TEST(x+INT(RND*2)*4,y-32)=l THEN 10 [2058] 
00 

960 IF TEST(x-INT(RND*2)*4,y-32)=l THEN 10 [1732] 
00 

970 IF TEST(x,y-32+INT(RND*2)*4)=1 THEN 10 [1644] 
00 

980 IF TEST(x,y-32-INT(RND*2)*4)=1 THEN 10 [1904] 


00 

990 GOTO 1010 [345] 

1000 PLOT x,y,l:PLOT X, y-32,2 [2081] 

1010 NEXT X, y [5 48 ] 

1020 FOR y=0 TO 30 STEP 2 [1487] 

1030 FOR x=0 TO 30 STEP 2 [895] 

1040 PLOT X+40,y,TEST(x,y) [1886] 

1050 PLOT x+40,y-32,MIN(TEST(X,y),1) [1547] 

1060 PLOT x,y-32,3-3*MIN(TEST(x,y),1) [2186] 

1070 NEXT x,y [ 5 48 ] 

1080 FOR X=32 TO 38 STEP 2 [1560] 

1090 MOVE X, -2:DRAWR 0,-30,3 [1946] 

1100 NEXT X,n [563] 

1110 adr=&4000 [724] 

1120 FOR n=0 TO 25 [571] 

1130 a2=&C000+(n MOD 16)*5+(n\l6)*320 [1707] 

1140 FOR y=0 TO 15 [1158] 

1150 al=a2+-(y MOD 8)*&800+(y\8)*80 [1496] 

1160 FOR x=0 TO 4 [ 7 i 8 ] 

1170 POKE adr,PEEK(al+160+x) [534] 

1180 POKE adr+l,PEEK(al+x) [1175] 

1190 adr=adr+2 [387] 

1200 NEXT x,y,n [ 8 i 8 ] 

1210 SAVE"FIGUR.DAT",b,&4000,&1040 [729] 


10 REM *********************************** [1 8 98] 

* 

20 REM * SPRITES .BAS ===> SPRITES .DAT [1900] 
30 REM *********************************** [i 8 9B] 


40 DEFINT a-Z [553] 

50 MEMORY &7FFF [150] 

60 FOR i=&8000 TO &803F:POKE i,0:NEXT [2215] 

70 FOR i=&8040 TO &82FF [1799] 

80 READ a$:POKE i,VAL("&"+a$) [608] 

90 NEXT [350] 

100 O=&82C0 [311] 

110 FOR Z=12 TO 16 [903] 

120 GOSUB 200 [941] 

130 NEXT [350] 

140 0=&8100 [371] 

150 FOR z=17 TO 24 [855] 

160 GOSUB 200 [941] 

170 NEXT [350] 

180 SAVE"SPRITES.DAT",b,&8000,&640 [1214] 

190 END [HO] 

200 FOR y=0 TO 15 [1158] 

210 FOR x=0 TO 3 [711] 

220 IF x>0 AND x<3 AND y>3 AND y<12 THEN R [4109] 

EAD a$:a=VAL("&"+a$)ELSE a=PEEK(o+x+y*4) 

230 POKE &8000+x+y*4+z*64,a [861] 

240 NEXT X,y [548] 

250 RETURN [555] 


Llsting RANA 


Listing RANA 


io/ii’90 pc 9 


.4 

























r~Programm 


260 DATA DF,F1,8F,EF,B8,30,3C,1E,F8,BO,C3, [2889] 
EO,OF,BO,C3,EO 

270 DATA 0F,78,D2,OO,E9,78,5A,20,F0,3C,FO, [1840] 
D2,5A,96,61,2C 

280 DATA 9E,96,D2,F0,F8,1C,2C,70,F8,10,E0, [2501] 
AO ,78,BO,FO,CO 

290 DATA 78,B0,1E,E0 / AD,78,87,D2,D8,OF,FO, [2292] 
D2,18,EO,00,20 

300 DATA CF,E0,8F,FF,B8,02,BC,OE,78,82,47, [3096] 
EO,OF,BO,47,EO 

310 DATA OF,69,56,0p,FF,OF,56,20,OC,88,47, [2407] 
08,00,22,44,24 

320 DATA 17,EE,11,9E,F8,IC,2A,65,F8,10,2A, [2475] 
A2,78,Al,3A,CO 

330 DATA 78,Al,32,EO,AD,48,47,D2,D8,1D,F8, [1602] 
D2,90,80,00,00 

340 DATA DF,F1,8F,EF,B8,30,3C,1E,F8,B0,C3, [2705] 
EO,OF,68,70,EO 

350 DATA 1E,90,10,80,F8,21,80,AO,FO,53,48, [1991] 
D2,68,A7,80,60 

360 DATA AC,A7,80,70,FÖ,52,00,FO,F8,20,00, [2343] 
AO,78,80,10,CO 

370 DATA 78,EO,70,EO,AD,78,C3,D2,D8,0F,F0, [1349] 
D2,18,EO,00,20 

380 DATA FF,FF,FF,FE,8F,0F,0F,0E,BE,0F,0F, [2260] 
CA,AC,OF,OF,82 

390 DATA 8F,OF,OF,OE,8F,OF,OF,OE,8F,OF,OF, [1581] 
OE,8F,OF,OF,OE 

400 DATA 8F,OF,OF,OE,8F,OF,OF,OE,8F,OF,OF, [1581] 
OE,8F,OF,OF,OE 

410 DATA BE,0F,0F,CA,AC,0F,0F,82,8F,0F,0F, [2260] 
OE,80,00,00,00 

420 DATA FF,FF,FF,FE,03,OF,OF,OE,DC,OF,OF, [2181] 
CA,AE,OF,OC,02 

430 DATA AE,03,3B,88,9F,CD,47,6E,8F,2E,07, [2622] 
OE,8F,1F,07,OE 

440 DATA 8F,1F,07,0E,8F,1F,07,0E,8F,1F,8B, [3598] 
OE,8F,ID,4C,06 

450 DATA BE,2B,3F,8A,AC,47,0F,C4,8E,8F,0F, [2379] 
2E,80,00,00,00 

460 DATA FF,FF,FF,FE,8F,OF,OF,OE,BE,OF,OF, [2061] 
CA,AC,OE,07,82 

470 DATA 8F,1B,01,0E,8F,21,80,0E,8F,53,48, [2888] 
OE,8E,A7,80,06 

480 DATA 8E,A7,80,06,8F,52,00,0E,8F,20,00, [2931] 
OE,8F,08,01,OE 

490 DATA BE,OE,07,CA,AC,0F,0F,82,8F,0F,0F, [2951] 
OE,80,00,00,00 

500 DATA DF,F1,8F,EF,B8,30,3C,1E,F8,80,03, [3417] 
EO,OF,91,89,EO 

510 DATA OF,33,CC,00,E8,77,EE,20,EO,FF,FF, [2426] 
52,4A,11,88,24 

520 DATA 9E,95,9A,FO,F8,ID,A8,70,F8,11,A8, [2535] 
AO,78,91,B8,CO 

530 DATA 78,91,9A,E0,AD,48,03,D2,D8,0F,F0, [4067] 
D2,18,EO,00,20 

540 DATA DF,F1,8F,EF,B8,30,3C,1E,F8,BO,C3, [3240] 
EO,OF,BO,01,EO 

550 DATA OF,78,44,00,E9,78,66,20,CO,00,77, [1954] 
12,59,FF,FF,A8 

560 DATA 9D,FF,FF,B8,C8,00,77,30,F8,10,66, [2277] 
20,78,BO,44,CO 

570 DATA 78,BO,10,EO,AD,78,87,D2,D8,OF,FO, [2107] 
D2,18,EO,00,20 

580 DATA DF,Fl,8F,EF,B8,30,3C,1E,F8,80,03, [3695] 
EO,OF,91,8B,EO 

590 DATA 0F,59,9A,00,E9,59,9A,20,F0,1D,B8, [2398] 
D2,5A,95,A9,2C 

600 DATA 8E,11,88,70,E8,FF,FF,70,E8,77,EE, [2257] 
20,78,33,CC,CO 

610 DATA 78,91,98,EO,AD,48,03,D2,D8,0F,F0, [2513] 
D2,18,EO,00,20 

620 DATA DF,Fl,8F,EF,B8,30,3C,IE,F8,BO,C3, [2660] 
EO,OF,80,C3,EO 

630 DATA 0F,22,D2,00,E8,66,5A,20,C0,EE,00, [2593] 
12,59,FF,FF,A8 

640 DATA 9D,FF,FF,B8,C8,EE,00,30,E8,66,EO, [2447] 
AO,78,22,FO,C0 

650 DATA 78,80,IE,EO,AD,78,87,D2,D8,0F,FO, [2228] 
D2,18,EO,00,20 

660 DATA 8F,OF,OF,OF,4F,OF,OF,OE,2F,OF,OF, [1214] 
OC,IE,FO,FO,80 

670 DATA 1E,F0,F0,80,1E,F0,F0,80,1E,F0,F0, [1985] 
80,IE,FO,FO,80 


Listing RANA 


680 DATA 1E,F0,F0,80,1E,F0,F0,80,1E,F0,F0, 

[1985] 

80,1E,FO,FO,80 


690 DATA 1E,FO,FO,80,OE,00,00,40,ÖC,00,00, 

[2040] 

20,08,00,00,10 


700 REM 

[ 272] 

710 DATA F3,FC,F6,F6,F0,F6,F0,FC,Fl,F8,Fl, 

[2606] 

F8,FO,FO,Fl,F8 


720 DATA 1E,C0,3C,80,BC,66,DE,FF,FF,B7,66, 

[2920] 

D3,10,C3,30,87 


730 DATA E0,33,C0,77,48,9F,2C,0F,0F,43,9F, 

[3607] 

21,EE,30,CG,70 


740 DATA 11,CF,33,8F,B3,69,D1,F0,F0,B8,69, 

[2156] 

DC,1F,CC,3F,88 


750 DATA EF,3C,CF,78,47,90,23,00,00,4C,90, 

[3344] 

2E,El,3F,C3,7F 


760 DATA EF,6F,6E,6E,6E,CC,7F,89,6E,CF,6E, 

[2361] 

6F,EE,6E,08,0C 


770 DATA FF,CF,6E,67,6E,6E,7F,CC,6E,CD,6E, 

[3418] 

6F,EE,6E,08,OC 


780 DATA 1F,8F,3F,EF,5F,88,3F,CF,1F,AB,7F, 

[3077] 

CE,ID,89,OF,03 


790 DATA 7F,EF,5D,AA,1D,8A,1F,8B,1F,8B,1F, 

[1703] 

8B,3F,CF,OE,01 


800 DATA 1F,8F,OF,03,1F,8F,3F,03,6E 67,6E, 

[2894] 

6E,3F,CC,OE,01 


810 DATA FF,0F,6E,07,6E,0F,6E,0F,6E,2F,6E, 

[2390] 

6E,FF,EE,08,00 


820 DATA FF,CF,6E,67,6E,6E,7F,CC,6E,67,6E, 

[3110] 

6E,FF,CC,08,01 


830 DATA FF,EF,CC,66,89,CC,1B,89,3F,23,6E, 

[1907] 

66,FF,EE,08,00 


10 REM *********************************** 

[1898] 

20 REM * ZEICHEN .BAS ===> ZEICHEN .DAT 

[2201] 

30 REM *********************************** 

[1898] 

40 DEFINT a-Z 

[553] 

50 MEMORY &3FFF 

[758] 

60 MODE 1:BORDER 0 

[1436] 

70 INK 0,0:INK 1,5:INK 2,14:INK 3,26 

[1182] 

80 PAPER 0:PEN 3 

[963] 

90 adr=&4000 

[724] 

100 n$="0123456789KR$T EILSPBD" 

[2774] 

110 FOR n=l TO 22 

[906] 

120 LOCATE 1,25 

[731] 

130 PRINT MID$(n$,n,l); 

[1430] 

140 ORIGIN 0,0 

[298] 

150 FOR y=l TO 7 

[1199] 

160 FOR X=0 TO 6 

[724] 

170 PLOT x*4,384+y*2,TEST(x*2,y*2) 

[1442] 

180 PLOTR 2,0 

[490] 

190 NEXT X,y 

[548] 

200 FOR y=l TO 7 

[1199] 

210 FOR x=0 TO 15 

[798] 

220 ORIGIN x*2,384+y*2 

[927 ] 

230 IF TEST(0,0)<>0 THEN 270 

[1305] 

240 IF X MOD 2=0 THEN a=TEST(-2,0)ELSE a=T 

[1622] 

EST(2,0) 


250 IF TEST(0,-2)=3 AND a=3 THEN PLOT 0,0, 

[2417] 

2 

260 IF TEST(0,2)*3 AND a=3 THEN PLOT 0,0,2 

[1895] 

270 NEXT x,y 

[548] 

280 FOR y=0 TO 6 

[1176] 

290 FOR x=0 TO 3 

[711] 

300 POKE adr,PEEK(&C000+x+&800*y) 

[823] 

310 adr=adr+l 

[ 392] 

320 NEXT x,y,n 

[818] 

330 SAVE"ZEICHEN.DAT",b,&4000,&268 

[1812] 

10 REM *********************************** 

[1898] 

20 REM * SCHRIFT .BAS ===> SCHRIFT .DAT 

[1551] 

30 REM *********************************** 

[1898] 

40 DEFINT a-z 

[553] 

50 MEMORY &3FFF 

[758] 

60 MODE 1:BORDER 0 

[1436] 

70 INK 0,0:INK 1,5:INK 2,14:INK 3,26 

[1182] 

80 PAPER 2:CLS:DEG 

[946] 

Listing RANA 



10 PC 10/11’90 
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90 DATA FF,FF,8F,B8,A4,8F,A8,E0,C7,F8,8O,C 

[2981] 

7,F8,BO,2 3,9E 


100 DATA BO,A3,BC,E1,F1,F8,F0,B1,F8,BO,00, 

[2036] 

8F,E8,30,EO,8F 


110 DATA E8,21,AO,47,9E,FO,D0,C7,8F,FO,FO, 

[2781] 

6B,DA,60,70,E3 


120 DATA B8,00,60,71,F8,80,70,F1,F8,90,F0, 

[1224] 

1E,8F,F8,CO,70 


130 DATA 1E,8F,F8,D0,16,96,C7,DA,F0,12,96, 

[2814] 

C7,CB,B4,30,7 0 


140 DATA 2F,CB,78,14,D0,2F,F8,F0,14,F0,3D, 

[2612] 

B8,52,06,87,D3 


150 DATA E9,87,06,0F,D2,8F,AD,4B,07,07,B4, 

[1372] 

8F,BC,F0,07,52 


160 DATA FO,C7,F8,F0,07,38,B0,C7,F8,0F,07 , 

[1966] 

29,FO,23,D8,2D 


170 DATA 07,IC,D2,23,C8,B4,07,OC,70,11,00, 

[2164] 

00,07,OE,00,00 


180 FOR n=0 TO 2 

[566] 

190 RESTORE 90 

[ 723] 

200 FOR y=0 TO 31 

[1158] 

210 FOR X=0 TO 2+y\8 

[850] 

220 READ a$:a=VAL("&"+a$) 

[883] 

230 POKE 5tC000+X+n*6+(y MOD 8) *&800+(y\8) * 

[2089] 

80 ,a 


240 NEXT x,y,n 

[818] 

250 MOVE 142,336:DRAWR 0,62,0:DRAWR-16,0,3 

[3813] 

:DRAWR 0,-28,3 


260 MOVE 16,398:DRAWR 14,0,3 

[763] 

270 FOR i=0 TO 160 STEP 10 

[887] 

280 IF i<68 THEN f=3 ELSE f=0 

[1513] 

290 DRAW SIN(i)*16+30,COS(i)*16+382,f 

[811] 

300 NEXT 

[350] 

310 adr=&4000 

[ 724 ] 

320 FOR n=0 TO 2 

[566] 

330 FOR y=0 TO 31 

[1158] 

340 FOR X=0 TO 5 

[717] 

350 POKE adr,PEEK(&C000+x+n*6+(y MOD 8)*&8 

[1597] 

oo+(y\8)*80) 


360 adr=adr+l 

[ 392] 

370 NEXT x,y,n 

[818] 

380 SAVE"SCHRIFT.DAT",b,&4000,&240 

[1884] 

10 REM *********************************** 

[1898] 

20 REM * GAME .BAS ===> GAME .DAT 

[1413] 

30 REM *********************************** 

[1898] 

40 DEFINT a-z 

[553] 

50 MEMORY &97FF 

[778] 

60 FOR i=&9800 TO &A4D9 

(1091] 

70 READ a$:POKE i,VAL("&"+a$) 

[608] 

80 NEXT 

[ 350] 

90 FOR i=&A4DA TO &A629 

[724] 

100 POKE i,0 

[238] 

110 NEXT 

[350] 

120 SAVE"GAME.DAT",b,&9800,&E2A 

[1971] 

130 DATA CD,CB,BC,3E,01,CD,OE,BC,CD,9D,9F, 

[3310] 

CD,B4,9F,CD,84 


140 DATA BB,CD,57,BB,06,OC,11,00,CO,21,14, 

[2541] 

A3,CD,77,BC,30 


150 DATA 24,FE,02,20,20,79,E6,7F,20,1B,C5, 

[2431] 

21,40,00,CD,83 


160 DATA BC,C1,30,11,C5,CD,7A,BC,C1,26,00, 

[3048] 

CB,21,CB,10,CB 


170 DATA 14,68,22,F4,A4,CD,7D,BC,CD,54,BB, 

[2428] 

21,4A,A3,CD,12 


180 DATA A2,CD,01,A2,FE,42,28,1F,FE,54,28, 

[2007] 

78,FE,31,38,Fl 


190 DATA FE,3A,30,ED,D6,30,CD,EB,98,11,00, 

[1723] 

CO,3E,OE,06,14 


200 DATA CD,4E,AO,10,FB,18,D4,21,2D,A4,CD, 

[1961] 

12,A2,21,14,A3 


210 DATA 3E,5F,06,08,CD,5A,BB,36,20,23,10, 

[3386] 

F8,3E,08,47,CD 


220 DATA 5A,BB,2B,10,FA,0E,00,CD,81,BB,CD, 

[3176] 

01,A2,FE,0D,CA 


230 DATA 0E,98,FE,7F,20,17,79,B7,28,F0,3E, 

[1528] 

5F,CD,5A,BB,3E 


240 DATA 08,CD,5A,BB,CD,5A,BB,0D,36,20,2B, 

[2904] 

18,DD,FE,20,38 


250 DATA D9,FE,7F,30,D5,5F,3E,08,B9,7B,28, 

[2452] 

CE,CD,5A,BB,77 


Listing RANA 



260 DATA 23,OC,18,C6,21,AF,A3,CD,12,A2,CD, [2565] 
01,Ä2,06,31,38 

270 DATA 07,FE,04,30,03,32,DO,A4,C3,4B,98, [2963] 
CD,6E,99,4F,2A 

280 DATA F4,A4,7D,B4,C8,06,00,DD,21,04,A5, [1675] 

CD, 8A,99,30,IE 

290 DATA DD,6E,00,DD,66,01,23,DD,75,00,DD, [2720] 
74,01,ED,5B,F4 

300 DATA A4,AF,ED,52,20,E5,DD,77,02,21,68, [2894] 
A4,18,08,DD,35 

310 DATA 02,20,31,21,84,A4,CD,B4,9F,CD,12, [2569] 
A2,21,A4,A4,CD 

320 DATA 12,A2,3E,03,DD,85,6F,DD,8C,95,67, [3050] 
3E,03,F6,30,ED 

330 DATA 6F,CD,5A,BB,ED,6F,CD,5A,BB,ED,6F, [1712] 
E6,OF,23,3D,20 

340 DATA EC,CD,01,A2,69,11,06,00,04,DD,19, [2933] 
78,91,20,05,47 

350 DATA DD,21,04,A5,DD,7E,02,B7,20,91,2D, [3247] 
20,EB,C9,F5,21 

360 DATA 04,A5,11,05,A5,01,35,00,36,00,ED, [2563] 

BO, 21,06,A5,01 

370 DATA 06,00,36,03,09,3D,20,FA,F1,C9,C5, [2450] 
CD,98,99,CD,2D 

380 DATA 9C,C1,F5,CD,89,9A,Fl,C9,CD,3B,9A, [2419] 

CD, 5E,9A,11,DA 

390 DATA A4,21,Dl,A4,01,09,00,ED,BO,DD,6E, [1787] 
00,DD,66,01,CD 

400 DATA B2,9B,11,F6,A4,01,04,00,ED,B0,3E, [2303] 
01,CD,88,A2,CD 

410 DATA 88,A2,4E,23,5E,23,7B,E6,0F,47,C5, [2691] 
7B,OF,OF,OF,OF 

420 DATA E6,0F,3C,5F,87,87,83,32,E3,A4,11, [2868] 
3A,A5,AF,06,78 

430 DATA ED,6F,12,13,ED,6F,12,13,ED,6F,23, [2762] 
10,F3,CD,BF,9B 

440 DATA 3A,E5,A4,B7,28,1A,AF,32,DC,A4,21, [2105] 
FA,A4,01,00,82 

450 DATA 11,OA,9B,CD,EO,BC,CD,AO,A2,76,76, [3351] 
3E,01,32,F3,A4 

460 DATA 2A,F6,A4,CD,B9,Al,11,00,CO,CD,E6, [2529] 
A2,3E,OE,06,09 

470 DATA CD,4E,AO,10,FB,CD,33,9B,DD,7E,02 , [2798] 
3D,11,20,CO,CD 

480 DATA 4E,AO,CI,59,50,21,CI,A4,C3,E9,BC, [1899] 
C5,3A,D0,A4,FE 

490 DATA 03,38,08,3E,01,CB,40,28,02,3E,02, [2446] 
87,87,C6,04,6F 

500 DATA CE,A3,95,67,11,EF,A4,01,04,00,ED, [2558] 

BO, C1,C9,C5,C5 

510 DATA 21,B3,A4,11,00,CO,06,08,7E,23,CD, [2503] 
4E,AO,10,F9,Fl 

520 DATA 3C,CD,4E,AO,06,06,7E,23,CD,4E,AO, [3619] 
10,F9,DD,6E,00 

530 DATA DD,66,01,23,CD,1C,A2,C1,C9,C5,F5, [2558] 
21 CI A4 CD EC 

540 DATA ' BC * Fl, 3t), 1B, 3A, DE, A4 , B7,28, OD, CD, [2165] 
BF,9A,3E,05,CD 

550 DATA B7,A2,CD,9A,A2,18,ED,2A,F6,A4,CD, [2058] 
9F,Al,18,03,CD 

560 DATA 4C,9F,21,FA,A4,CD,E6,BC,CI,CD,5E, [2200] 
9A C3 9D 9F 3A 

570 DATA , De!a4,B7,C8,3D,32,DE,A4,3A,DF,A4, [2794] 
B7,28,14,3D,32 

580 DATA DF,A4,20,OE,32,EE,A4,32,DC,A4,11, [2301] 
30,CO,3E,OE,CD 

590 DATA 4E,A0,2A,E1,A4,3A,E0,A4,4F,06,07, [1679] 
CD,03,B9,5F,79 

600 DATA 2F,A6,77,3E,08,84,67,10,F6,79,07, [1726] 
32,E0,A4,3A,El 

610 DATA A4,DE,00,32,El,A4,7B,C3,0C,B9,21, [2846] 
F3,A4,35,CO,36 

620 DATA IE,3A,DC,A4,B7,CO,3A,E5,A4,D6,OC, [2315] 
E6,03,C6,OD,32 

630 DATA E5,A4,CD,FD,AO,D5,2A,E6,A4,CD,F5, [4120] 
9F,Dl,2A,E8,A4 

640 DATA C3,F5,9F,E5,D5,C5,F5,AF,32,DF,A4 , [2120] 
32,EE,A4,76,2A 

650 DATA El,A4,3A,DE,A4,57,3A,EO,A4,4F,7A, [2777] 
B7,28,5F,FE,11 

660 DATA 3E,0F,06,07,30,02,3E,F0,AE,A1,AE, [2644] 
5F,E5,73,3E,08 

670 DATA 84,67,10,F9,El,15,CB,01,30,EO,2B, [2105] 
18,DD,E5,D5,C5 
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680 DATA F5,76,2A,El,A4,3A,DE,A4,57,3A,EO, [2108] 
A4,4F,CB,42,20 

690 DATA 01, AF,5F,3A,E3,A4,32,DF,A4,BA,30, [2182] 
01,57,7A,B7,28 

700 DATA IC,06,07,E5,AF,AE,A3,AE,77,3E,08, [3402] 
84,67,7B,A9,5F 

710 DATA 10,F2,El,15,CB,03,CB,01,30,E3,2B, [2509] 
18,EO,Fl,CI,Dl 

720 DATA E1,C9,AF,CB,1C,CB,1D,1F,65,6F,11, [1444] 
40,00,19,C9,E5 

730 DATA D5,C5,F5,AF,32,E4,A4,32,E5,A4,47, [3026] 
48,06,04,3E,FO 

740 DATA CD,64,A2,67,2E,14,CD,52,A2,6C,67, [2315] 
CD,D5,9F,76,10 

750 DATA ED,41,10,E7,06,0C,2E,00,48,06,14, [2198] 
26,00,E5,CD,D5 

760 DATA 9F,CD,ED,AO,FE,03,28,04,FE,06,20, [3367] 
04,21,E4,A4,34 

770 DATA El,FE,OF,20,IC,32,E5,A4,E5,CD,D4, [2476] 
AO,E5,2A,E6,A4 

780 DATA 22,E8,A4,2A,EA,A4,22,EC,A4,El,22, [2639] 
E6,A4,El,22,EA 

790 DATA A4,24,10,C9,41,2C,10,CO,Fl,CI,Dl, [1661] 
El,C9,2A,F6,A4 

800 DATA CD,ED,AO,CD,54,9C,D8,4D,44,C5,CD, [2445] 
1A,9D,7 9,CI,DO 

810 DATA CD,F2,9D,CD,30,9E,D0,CD,45,9E,30, [3487] 
ED CD 98 9E CD 

820 DATA* A9 ^9E,18,D9,FE,03,28,0A,FE,06,28, [2561] 
06,D6,11,3F,DO 

830 DATA 18,13,D6,02,77,3A,F8,A4,CD,B7,A2, [3084] 
3A,E4,A4,3D,32 

840 DATA E4,A4,D6,01,C9,F5,3A,F8,A4,CD,B7, [3731] 
A2,3E, 04^,77, Fl 

850 DATA FE,04,30,1D,3C,32,EE,A4,CD,6D,9B, [2738] 
IE,FF,FE,04,28 

860 DATA 02,1E,00,57,7B,32,DC,A4,7A,11,30, [1932] 
CO,C6,09,C3,4E 

870 DATA AO,F5,AF,32,DC,A4,11,30,C0,3E,0E, [2914] 
CD,4E,AO,Fl,FE 

880 DATA 07,20,0F,3E,50,32,DE,A4,3E,11,32, [2930] 
EO,A4,3E,4F,32 

890 DATA El,A4,CD,33,9B,FE,06,20,12,E5,DD, [3524] 
6E,00,DD,66,01 

900 DATA ED,5B,F4,A4,1B,B7,ED,52,20,1E,E1, [2517] 
EE,05,CO,3E,02 

910 DATA CD,64,A2,3C,DD,86,02,FE,OB,38,02, [2438] 
3E,0A,DD,77,02 

920 DATA 11,20,C0,D6,01,C3,4E,A0,3E,04,CD, [2181] 
64,A2,DD,86,00 

930 DATA DD,77,00,6F,DD,8E,01,95,DD,77,01, [3332] 
67,B7,ED,52,El 

940 DATA D8,1B,DD,73,00,DD,72,01,37,C9,3A, [3436] 
EE,A4,FE,01,28 

950 DATA 15,7E,57,FE,04,28,OF,FE,05,28,OB, [3429] 
FE,11,30,07,2A 

960 DATA DA,A4,7D,B4,2O,O6,CD,9E,9D,D0,18, [2417] 
10,3A,DD,A4,4F 

970 DATA 7A,FE,07,38,07,FE,OB,30,03,D6,07, [2639] 
4F,79,B7,20,03 

980 DATA 11,FF,FF,3D,20,03,11,00,01,3D,20, [1910] 
03,11,01,00,3D 

990 DATA 20,03,11,00,FF,ED,53,DA,A4,2A,F6, [2905] 
A4,19,E5,CD,ED 

1000 DATA AO,Dl,FE,OF,37,CO,3A,EE,A4,FE,04 [2870] 
,37,C8,7B,FE,OC 

1010 DATA 3F,D8,7A,FE,14,3F,D8,CB,F9,2Ä,EA [3245] 
,A4,ED,52,20,05 

1020 DATA 2A,EC,A4,ED,52,ED,5B,DA,A4,19,19 [3700] 
,EB,18,C7,E5,CD 

1030 DATA BB,90,30,15,21,EF,A4,06,04,7E,E5 [2422] 
,CD,IE,BB,El,20 

1040 DATA 05,23,10,F5,18,E9,48,OD,37,E1,C9 [2831] 
, 3A, DE, A4 , B7 , C8 

1050 DATA 3E,42,CD,1E,BB,B7,28,08,CB,69,C8 [1594] 
,DD,36,02,01,C9 

1060 DATA 3E,4F,CD,IE,BB,37,C8,3A,DE,A4,F5 [2829] 
32 DC A4 AF 32 

1070 DATA'DE!A4,3E,10,CD,1E,BB,28,F9,AF,32 [2606] 
,DC,A4,Fl,32,DE 

1080 DATA A4,C9,E5,D5,C5,F5,21,DD,A4,4E,77 [3028] 
,91,E6,03,28,2B 

1090 DATA 06,FF,FE,01,20,02,06,01,79,4E,87 [2848] 
,87,CB,21,CB,21 


Llsting RANA 


1100 DATA 2A,F6,A4,80,E6,OF,CD,9A,A2,C5,E5 [1173] 

,F5,CD,BB,AO,CD 

1110 DATA F5,9F,Fl,CD,08,AO,E1,C1,B9,20,E8 [3256] 

, Fl, CI, Dl, El, C9 

1120 DATA E5,C5,CD,BB,9D,CI,El,DO,7B,FE,OC [3564] 

,DO,7A,FE,14,DO 

1130 DATA 7E,FE,01,3F,C9,FE,OB,D8,FE,11,3F [2834] 

,D8,FE,OC,20,03 

1140 DATA AF,18,17,FE,OD,20,04,3E,01,18,OF [1584] 

,FE,OE,20,10,3A 

1150 DATA F9,A4,B7,3E,04,28,03,CD,79,9E,77 [2134] 

,EB,CD,9F,Al,21 

1160 DATA 00,00,22,DA,A4,69,60,B7,C9,C5,06 [3592] 
,08,3A,F9,A4,4F 

1170 DATA AF,CB,09,CE,00,10,FA,CD,64,A2,3C [2693] 

,47,AF,3C,CB,09 

1180 DATA 30,FB,10,F9,C6,10,CI,C9,3A,EE,A4 [2214] 

,FE,02,C8,OA,FE 

1190 DATA 02,28,03,FE,05,CO,AF,02,C9,2A,F6 [3842] 
,A4,CD,D4,AO,3A 

1200 DATA DD,A4,B7,28,24,3D,28,39,3D,28,57 [2606] 
,3D,CA,29,9F,3A 

1210 DATA DD,A4,E6,03,32,DD,A4,CD,CD,9E,C3 [3547] 
,D3,Al,2A,DA,A4 

1220 DATA ED,5B,F6,A4,19,22,F6,A4,C9,06,10 [1132] 
,CD,29,BC,E5,2A 

1230 DATA F6,A4,2D,CD,EB,9F,E1,11,D8,7C,CD [2532] 
, 11, AO, 10 , EC, 1:8 

1240 DATA DC,06,04,3E,10,E5,2A,F6,A4,CD,DE [3270] 

,9F,El,CD,08,AO 

1250 DATA FE,O4,28,0A,3C,FE,13,20,EC,3E,04 [2013] 
,23,18,E7,10,E3 

1260 DATA 18,BB,06,10,CD,26,BC,E5,2A,F6,A4 [1823] 
, CD, EB, 9F, El, 11 

1270 DATA D8,81,CD,11,AO,10,ED,18,A4,06,04 [3199] 
,3E,13,2B,E5,2A 

1280 DATA F6,A4,25,CD,DE,9F,El,CD,08,AO,FE [3112] 
,OC,28,09,3C,FE 

1290 DATA 16,20,EB,3E,0C,18,E7,10,E2,C3,CD [3499] 
,9E,2A,F6,A4,CD 

1300 DATA BB,AO,4F,3E,16,06,04,CD,08,A0,CD [2718] 
,94,A2,3C,10,F7 

1310 DATA 06,32,79,CD,FD,AO,CD,F5,9F,3A,DD [2716] 
,A4,87,87,CD,08 

1320 DATA A0,3E,04,CD,64,A2,C6,16,CD,08,AO [3278] 
,CD,9A,A2,10,E2 

1330 DATA 3E,19,06,04,F5,79,CD,FD,AO,CD,F5 [3502] 
,9 F,Fl,CD,0 8,AO 

1340 DATA CD,94,A2,3D,10,EE,79,CD,FD,AO,C3 [2009] 
,F5,9F,E5,D5,C5 

1350 DATA 21,3A,A5,11,3B,A5,01,EF,00,36,04 [2530] 
,ED,BO,CD,BF,9B 

1360 DATA CI,Dl,El,C9,E5,C5,01,00,00,CD,38 [2484] 
,BC,AF,21,10,A3 

1370 DATA 06,04,C5,CD,88,A2,C1,10,F9,21,20 [2783] 
,A3,CD,12,A2,CD 

1380 DATA 83,AO,CI,El,C9,E5,CD,BB,AO,CD,F5 [1933] 
,9F,El,C9,F5,CD 

1390 DATA AB,A2,CD,D5,9F,24,CD,D5,9F,Fl,C9 [3481] 
, CD, AB , A2 , CD, D5 

1400 DATA 9F,2C,C3,D5,9F,E5,C5,3E,08,CD,6F [2613] 
,AO,01,50,CO,09 

1410 DATA 3E,08,CD,6F,A0,C1,E1,C9,F5,CD,OF [1150] 
,Al,CD,11,AO,Fl 

1420 DATA C9,E5,C5,3E,10,01,FC,07,F5,EB,1A [2824] 
,A6,23,B6,23,12 

1430 DATA 13,1A,A6,23,B6,23,12,13,1A,A6,23 [1718] 
,B6,23,12,13,1A 

1440 DATA A6,23,B6,23,12,13,1A,A6,23,B6,23 [2349] 
,12,EB,09,30,07 

1450 DATA 01,50,CO,09,01,FC,07,Fl,3D,20,CD [2318] 
, CI, El, C9, E5 , C5 

1460 DATA F5,47,87,4F,87,81,80,6F,26,00,29 [2796] 
,29,01,58,93,09 

1470 DATA EB,3E,07,CD,6F,AO,11,04,C8,19,EB [3071] 
,Fl,C1,El,C9,01 

1480 DATA FF,07,EB,ED,AO,ED,AO,ED,AO,ED,AO [3330] 
,EB,OE,FC,09,3D 

1490 DATA 20,F0,C9,21,53,CI,11,CO,95,06,03 [2560] 
,C5,CD,95,AO,CI 

1500 DATA 10,F9,11,80,96,3E,20,01,FF,07,EB [2580] 
, ED, AO , ED, AO , ED 

1510 DATA AO,ED,AO,ED,AO,ED,AO,EB,OE,FA,09 [3077] 
,30,06,01,50,CO 
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1520 DATA 09,06,07,3D,20,E4,01,CC,FE,09,C9 [2269] 
, E5,CD,D4,A0,E3 

1530 DATA CD,ED,AO,F5,FE,0D,38,06,FE,0F,30 [2732] 
,02,3E,OC,CD,FD 

1540 DATA AO,F1,E1,C9,7C,CB,27,17,C6,50,5F [2734] 
,CE,C0,93,57,7D 

1550 DATA 87,87,85,87,87,26,00,6F,29,29,29 [2420] 
, 19,C9,7D,87,87 

1560 DATA 85,87,87,84,C6,3A,6F,CE,A5,95,67 [2515] 
,7E,C9,E5,2E,00 

1570 DATA CB,3F,CB,1D,1F,CB,1D,67,11,18,8D [3281] 
, 19,EB,El,C9,E5 

1580 DATA 6F,87,87,85,2E / 00,1F,CB,1D,1F,CB [2040] 
,1D,1F,CB,1D,6 7 

1590 DATA 11,D8,7C,19,EB,El,C9,4F,E6,03,3C [1591] 
,47,3E,11,OF,10 

1600 DATA FD,5F,79,CB,3F,CB,3F,C9,F5,D5,F5 [2370] 
,E5,CD,ED,AO,El 

1610 DATA CD,FD,AO,1A,F1,83,5F,8A,93,57,1A [2829] 
,Dl,A3,57,7B,2F 

1620 DATA 5F,F1,C9,F5,D5,F5,3A,DD,A4,E6,03 [3451] 
,87,87,CD,OF,Al 

1630 DATA Fl,4F,E6,03,47,79,CB,3F,CB,3F,4F [3000] 
,87,87,81,80,87 

1640 DATA 83,5F,8A,93,57,1A,4F,13,1A,D1,47 [1886] 
,7B,2F,B1,5F,2F 

1650 DATA A0,57,F1,C9,D5,47,CD,D4,AO,78,17 [3627] 
,E6,38,57,78,E6 

1660 DATA 03,CB,68,28,02,C6,50,5F,19,D1,7E [2190] 
, A3 , B2,77,C9,ED 

1670 DATA 5F,CB,37,5F,AF,E5,D5,F5,CD,27,Al [2904] 
,CD,38,Al,CD,84 

1680 DATA Al,76,Fl,Dl,El,83,20,ED,C9,ED,5F [2007] 
,CB,37,5F,AF,E5 

1690 DATA D5,F5,CD,27,Al,CD,53,Al,CD,84,Al [2755] 
,76,Fl,Dl,El,83 

1700 DATA 20,ED,C9,D5,ED,5F,CB,37,5F,E5,D5 [3428] 
,F5,50,CD,27,Al 

1710 DATA CD,53,Al,CD,84,A1,F1,D1,E1,E3,E5 [2890] 
,D5,F5,51,CD,27 

1720 DATA Al,CD,38,Al,CD,84,Al,76,Fl,Dl,El [2474] 
,E3,83,20,DA,Dl 

1730 DATA C9,CD,09,BB,38,FB,CD,06,BB,FE,61 [2796] 
,D8 , FE,7B,DO,D6 

1740 DATA 20,C9,7E,23,FE,FF,C8,CD,5A,BB,18 [2650] 
,F6,01,10,27,CD 

1750 DATA 35,A2,01,E8,03,CD,35,A2,01,64,00 [2063] 
,CD,35,A2,OE,OA 

1760 DATA CD,35,A2,OE,01,AF,ED,42,38,03,3C [2030] 
,18,F9,09,C3,4E 

1770 DATA AO,D5,C5,5D,16,00,6A,06,08,29,30 [2079] 
,01,19,10,FA,CI 

1780 DATA Dl,C9,C5,AF,06,08,CB,14,17,95,30 [3468] 
,01,85,3F,10,F6 

1790 DATA CB,14,C1,C9,D5,E5,F5,ED,5F,6F,67 [2140] 
,CD,41,A2,ED,5B 

1800 DATA CE,A4,19,7C,B7,20,01,24,7D,B7,20 [3256] 
,01,2C,22,CE,A4 

1810 DATA Fl,6F,CD,52,A2,El,D1,C9,E5,F5,46 [2428] 
,48,CD,32,BC,Fl 

1820 DATA E1,3C,23,C9,CD,9A,A2,CD,9A,A2,CD [1771] 
,AO,A2,CD,AO,A2 

1830 DATA F5,C5,06,F5,ED,78,1F,38,FB,18,04 [1721] 
,F5,C5,06,F5,ED 

1840 DATA 78,1F,30,FB,C1,F1,C9,E5,6F,3A,EE [1920] 
,A4,FE,03,7D,2E 

1850 DATA 00,20,07,87,27,67,8D,94,6F,7C,DD [2986] 
,86,05,27,DD,77 

1860 DATA 05,7D,DD,8E,04,27,DD,77,04,3E,00 [1122] 
,DD,8E,03,27,DD 

1870 DATA 77,03,El,11,00,C0,E5,3E,03,DD,85 [2092] 
,6F,DD,8C,95,67 

1880 DATA 3E,03,ED,6F,CD,4E,AO,ED,6F,CD,4E [2132] 
,A0,ED,6F,23,3D 

1890 DATA 20,FO,El,C9,08,02,01,00,4A,49,4B [1787] 
,48,32,31,33,30 

1900 DATA 00,05,OE,1A,53,43,52,45,45,4E,53 [2024] 
, 20,2E,52,41,4E 

1910 DATA 0E,02,0F,00,1A,02,25,03,0A,0C,1F [2784] 
,08,07,43,41,52 

1920 DATA 53,54,45,4E,20,53,43,48,41,41,52 [1865] 
,20,20,28,31,39 

1930 DATA 38,39,29,1A,02,25,0D,16,0C,FF,OC [2410] 
,OF,03,1F,OE,02 


Listlng RANA 


1940 DATA 48,61,75,70,74,6D,65,6E,75,65,OF [932] 

,00,1F,04,05,31 

1950 DATA 2E,2E,2E,39,1F,06,07,54,1F,06,09 [2961] 
,42,OF,01,1F,OC 

1960 DATA 05,53,70,69,65,6C,1F,1B,05,73,74 [3116] 
,61,72,74,65,6E 

1970 DATA 1F,0C,07,54,61,73,74,65,6E,62,65 [2731] 
,6C,65,67,75,6E 

1980 DATA 67,20,61,65,6E,64,65,72,6E,1F,0C [2233] 
,09,42,69,6C,64 

1990 DATA 65,72,1F,19,09,6E,61,63,68,6C,61 [3284] 
,64,65,6E,FF,OC 

2000 DATA OF,03,1F,07,02,54,61,73,74,61,74 [2819] 
,75,72,62,65,6C 

2010 DATA 65,67,75,6E,67,20,61,65,6E,64,65 [1849] 
,72,6E,OF,00,1F 

2020 DATA 05,05,31,OA,08,32,OA,08,33,OA,08 [2606] 
,34,OF,01,1F,OA 

2030 DATA 05,54,61,73,74,61,74,75,72,20,28 [1996] 
,43,75,72,73,6F 

2040 DATA 72,74,61,73,74,65,6E,29,1F,OA,06 [2544] 
,4A,6F,79,73,74 

2050 DATA 69,63,6B,20,30,1F,OA,07,4A,6F,79 [3188] 
,73,74,69,63,6B 

2060 DATA 20,31,1F,OA,08,4A,6F,79,73,74,69 [1867] 
,63,6B,20,30,20 

2070 DATA 26,20,4A,6F,79,73,74,69,63,6B,20 [3248] 
,31,FF,OC,OF,03 

2080 DATA 1F,OB,02,42,69,6C,64,65,72,20,6E [2594] 
,61,63,68,SC,61 

2090 DATA 64,65,6E,OF,01,1F,06,05,42,69,74 [1601] 
,74,65,20,44,61 

2100 DATA 74,65,69,6E,61,6D,65,6E,20,65,69 [1853] 
,6E,67,65,62,65 

2110 DATA 6E,3A,0F,00,1F,0E,07,FF,OF,01,1F [3156] 
,08,04,53,69,65 

2120 DATA 20,68,61,62,65,6E,20,65,73,20,67 [2697] 
,65,73,63,68,61 

2130 DATA 66,66,74,FF,0F,01,1F,06,04,4B,65 [2153] 
,69,6E,20,4C,65 

2140 DATA 62,65,6E,20,6D,65,68,72,2E,20,53 [2433] 
,50,49,45,4C,45 

2150 DATA 4E, 44,45, FF,OF, 00,- 1F, 14,07,50,75 [2842] 
,6E,6B,74,65,1F 

2160 DATA 0C,07,FF,12,13,10,OF,ll,0F,0B,0E [1888] 
,OE,14,10,11,15 

2170 DATA OE,00,00,00,00,00,00,00,00,00,80 [3496] 
,BF,9A,00,65,89 

2180 DATA 01,00,00,00,00,50,00,11,4F,CO,00 [2550] 
,00,00,00,00,00 


10 REM *********************************** [1898] 


2 0 REM * RANA .BAS ===> RANA [1470] 

30 REM *********************************** [1898] 
* 

40 MEMORY &7CD7 [265] 

50 LOAD"FIGUR,DAT",&7CD8 [1647] 

60 LOAD"SPRITES.DAT",&8D18 [1591] 

70 LOAD"ZEICHEN.DAT",S9358 [1382] 

80 LOAD"SCHRIFT.DAT",&95C0 [1828] 

90 LOAD"GAME.DAT",&9800 [1921] 

100 SAVE"RANA.",b,&7CD8,&2952,&9800 [1647] 


10 REM *********************************** [1898] 
20 REM * SCREENS .BAS ===> SCREENS .RAN [1856] 
30 REM *********************************** [1898] 


40 DEFINT a-Z [553] 

50 MEMORY &7FFF [150] 

60 FOR i=&8000 TO &84FF [1595] 

70 READ a$:POKE i,VAL("&"+a$) [608] 

80 NEXT [350] 

90 SAVE"SCREENS.RAN",b,&8000,&500 [2446] 

100 REM Bild 1 [736] 


110 DATA OA,01,35,00,08,11,2F,00,11,11,11, [2969] 
11 , 11 , 11 , 11,11 

Listing RANA 
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120 DATA 11,11,14,16,11,11,11,14,11,11,16, [2751] 

11 , 11 , 11 , 11,11 

130 DATA 11,11,14,11,11,61,14,11,16,11,11, [2637] 

16,11,11,11,11 

140 DATA 11,11,11,11,14,11,11,14,11,11,11, [2106] 

11 , 11 , 11 , 11,11 

150 DATA 11,11,11,41,11,11,11,41,11,16,11, [2702] 
11,11,11,11,14 

160 DATA 11,11,11,11,11,14,11,11,11,11,11, [1968] 

41.11.11.11.11 

170 DATA 16,11,11,16,11,11,16,11,11,11,11, [2112] 

11.14.11.11.11 

180 DATA 11,14,11,11,11,11,11,11,11,41,11, [2417] 

11.14.11.11.11 

190 REM Bild 2 [731] 

200 DATA 04,06,15,00, 06,OF,32,00, 00, 00,OB, [2440] 
BB , 00 ,00, BB,BO 

210 DATA 00, 00,00, 00, B3,33,BO,OB,33-, 3B, 00, [1377] 
00, 00, OB,33,33 

220 DATA 3B,B3,33,33,BO,00, 00, OB, 33,33, 33, [2729] 

33. 33.33, BO, 00 

230 DATA 00, OB, 36, 33,33,33,33, 63,BO, 00, 00, [2214] 
OB,33,33, 33, 33 

240 DATA 33,33, BO, 00, 00, 00,B3,33,33,33, 33, [2413] 
3B,00,00, 00,00 

250 DATA B3,33, 33,33,33,3B,00, 00,00, 00,OB, [2130] 

33. 33.33.33, BO 

260 DATA 00, 00, 00, 00, 00,B3,33,33,38,00,00, [2519] 
00,00, 00,00, OB 

270 DATA 36, 63, BO,00,00, 00, 00, 00, 00,00, BB, [3051] 
BB, 00, 00, 00, 00 

280 REM Bild 3 [734] 

290 DATA 04,06, 35, 00,05,OB,4B,00, 61,60,00, [2133] 
11,61,11,11,41 

300 DATA 11,11,11,11,00,01,11,11,11,14,14, [2734] 
11,11,41,40,00 

310 DATA 41,11,11,11,61,11,11,11,11,00,01, [1042] 

16, 11,Fl, 11, 41 

320 DATA 16,11,11,10,00,14,11,11,11,14,11, [2450] 
11,61,14,00,01 

330 DATA 14,11,11,61,14,11,16,11,10,00,11, [2812] 
16,11,14,11,16 

340 DATA 11,11, 14,00, 01,11,11,11, 41, 11,1F, [2517] 
16,11,10,00,41 

350 DATA 14,11,11,11,11,14,11,16,00,01,11, [2715] 

11.11.41.11.11 

360 DATA 11,11,60,00,61,14,61,14,16,11,14, [2759] 
11,11,00,01,64 

370 REM Bild 4 [729] 

380 DATA OB, 00,15,00,OA, 14,39,00, 00,00, 00, [2570] 
00,00,11,11,41 

390 DATA 11,11,BB,BB,BB,BB,BB,14,11,11,11, [2450] 
41, B3,33,33,33 

400 DATA BF, 11, 41,11 ,11,11, B3,B3,33,33,3B, [2563] 

11.11.41.14.11 

410 DATA B3,33,33,B3,3B,11,11,14,11,14,B3, [3717] 
33 ,B3, 33 , 3B, 41 

420 DATA 11,11,14,11,B3,33,3B,33,3B,11,14, [1862] 
11,41 , 41,B3 ,3B 

430 DATA 33,33,3F,11,11,14, 11,11, B3,33, 33, [2078] 
3B , 3B , 14 ,14, 11 

440 DATA 11, 11, BB,33, 33,33, 3B, 11, 41,41,11, [1648] 
1 1 ,BB,BB,BB,BB 

450 DATA BB,11, 14,14, 11, 11,22, 22, 22,22,22, [2411] 
11,11,11,11,14 

460 REM Bild 5 [732] 

470 DATA 07,0D,35,64,08,11,2C,50,B1,BC,BB, [3069] 
Bl,Bl,BB, Bl, Bl 

480 DATA B1,B0,B3,11,11,11,31,E1,13,11,11, [2977] 
CO,Bl, Bl, Bl, Bl 

490 DATA Bl,Bl,Bl,Bl, Bl,BO,11,11,11,CI, 11, [2235] 
13,Bl, 13,11, 10 

500 DATA Bl,Bl,Bl,Bl,Bl,Bl,Bl,Bl,BB,BO, 11, [3652] 
13,11,13,Bl, 11 

510 DATA 11,31,Bl,10,BC,Bl,Bl,Bl,Bl,Bl,BC, [2388] 
Bl,BC,BO, 11 ,B3 

520 DATA 11, 11, 11, 13, 11,11, 31, 10,Bl, Bl, Bl, [2623] 
Bl, Bl,Bl,Bl, BB 

530 DATA Bl,BO,El, 11, CI,13, El, 13, CI, 11,11, [2696] 
10,Bl, BB,Bl, SG 

540 DATA BC,Bl, BB,Bl,Bl,BO,00,00, 00, 00,00, [2738] 

00 , 00 , 00 , 00,00 

550 REM Bild 6 [727] 
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560 DATA 07,OF,20,02,05,OE, 38, 40,11,CI, IC, [2618] 

61,11,61,11,11 

570 DATA CI,16,61,61,11,21,61, 21, 11, 61, IC, [2051] 
11,11,11,11,61 

580 DATA 61, IC,61, 61,16, CI,11, 11, 11,CI,11, [1846] 
11,IC,11,11,ID 

590 DATA 61, 61, 16, C6 ,11, 11, 11,21,11,16,11, [2149] 
CI,16,11,16, 11 

600 DATA 11,11,11,11,11, 61, 6C,12, 11,6D, 11, [1154] 

61,11,11,11,11 

610 DATA 11, 11, 16, 61,21,11,16, CI,1.1,11,11, [2609] 

11.11.11.11, CC 

620 DATA 11, 11,IC, 61,21,12, 11,11, 11, 61,11, [2311] 

11,11,11,11,11 

630 DATA 11, 11,11,61,11, 16, 61,11,6C,16, 11, [3230] 
11,6E,11,11,11 

640 REM Bild 7 [730] 

650 DATA 07,OA,35,00,OA, 14, 58,00, 11, 11,81, [2311] 

16,11,11,11,11 

660 DATA 11,11,91,1A,11,1A,11,18,91, 61, 11, [2301] 
Ai,18,11,6Ä , 9 A 

670 DATA 11,11,11,11,11,11,11,11,11,11,18, [2227] 
16, 11,11, 91,6A 

680 DATA 86, 19, 17, 11,11,11, A9, 86, 91, 11,11, [1896] 
11,11,16,11, 1A 

690 DATA 11,11,11, 11,19, 1A,61, 81, 17,11,11, [2771] 

11. 11, Al,11,1A 

700 DATA 11,19,11,61,19,17,11,11,19,11,18, [2869] 
11,11,11,18,16 

710 DATA 19,11,11,16,11,16,11,11,1A,11, Al, [1999] 

11,16,18,11,11 

720 DATA 19,11,11,11,16,17,17,11,11,17,18, [2541] 
11,11,11,11,71 

730 REM Bild 8 [757] 

740 DATA OA,01 ,30, 01, OA,14,4B, 10, BB,BB, BB, [2132] 
BB , BB , BB , BB,BB 

750 DATA BB,BB,Bl,41,14, El, Bl, 11,11,40,11, [2719] 
4B , Bl , ID,11,11 

760 DATA B1,4D,43,11,41,1B,B4,11,43,14,B1, [3080] 
11, 11,11,31,4B 

770 DATA BD,13,Dl,11,Bl,Bl,ID,11,1D,1B,Bl, [1412] 
44,13,41,31 , OB 

780 DATA 11,11,11, 1B, Bl,11,11, 11,BO, 13, 14, [2344] 
lE,13,iB,Bl,lD 

790 DATA 41,41,1B,1B,13,11,11,1B,B1,31,11, [1189] 
11 , Dl,1B,1 1,4D 

800 DATA 1D,1B,B1,11,D1,11,11,1B,13,11,11, [2380] 
4B, Bl,41,11, 41 

810 DATA 11,1B, 14, Dl , 13 , 1B,BB,BB , BB,BB ,BB, [2341] 
BB,BB , BB,BB,BB 

820 REM Bild 9 [760] 

830 DATA 02,12, 30,48,08, 11, 4B,30, BB ,BB,CB, [2280] 

BB, BC,BE,BB,BB 

840 DATA BB,EB,Bl,11,41,11,14,11,11,11, 11, [2168] 
1B,Bl,11,11,11 

850 DATA 11, 14, 11,11,11,IC,C4,16, 1F, 11, 16, [2662] 
11,11,11,11,1B 

860 DATA Bl,11,11, 11, 61,11,14,11,11,1B,CI, [2558] 

11.11.11.41.11 

870 DATA 11,14,11,1B,Bl,11,11,41,11, 16,11, [3542] 
11, 41, 1B,Bl, 14 

880 DATA 16, 11, 11,11,11,11,11, 6B, El,11,11, [1856] 

11.11.11.16.11 

890 DATA 11,IC,C6 ,11, 11, 41, 11,14, 11,11,Fl, [2649] 
1B, Bl,11,11,11 

900 DATA 11,11,11,11,11, 1B, BB ,BB,BB,EB, BB , [2148] 

BC, BB,BB , BB , BB 

910 REM Bild 10 [721] 

920 DATA 03,01,50, FC,09,12,38,FO,91, 11, Al, [2380] 

41,11,89,19,11 

930 DATA 31,1A, Fl, 11,11,61,17,38,11,11,61, [2799] 
17,11,11,10,10 

940 DATA 11,11,11,11,21,11,31,11,11,11,41, [2659] 
14,1F,00,10,11 

950 DATA 21,11,10, 10, 10,11,10, 91,11,2A,20, [2437] 
81,11,31,21,41 

960 DATA 10,10,10,11,20,11,11,10,10,43,21, [1929] 
11, AO, 11,20,1B 

970 DATA 71,Al,91,41,10,10,OE,17, 20,1B,B3, [2973] 
13,11,32,11,51 

980 DATA 13,11, 20, 61, 11, 11, Al, 41, 11, 61, 11, [2666] 
11,20,00,00,01 

990 DATA 11,11,11,11,17,14,52,22,22,22,11, [2042] 
14,11,11,11,44 

Listing RANA 
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Gridrider 

Gefährliches Pflaster im Weltraum 


Slow: 

Schaltet die orangefarbenen 
Bremsfelder aus. 

Glue: 

Schaltet die gelben Haftfelder 
aus. 

Swap: 

Verhindert die Funktion der 
Steuerungsverkehrung (lila 
Felder). 

Jump: 

Bringt drei Bonussprünge. 

Warp: 

Löst einen Warp-Srung aus, 
der den Spieler einen großen 
Teil der Strecke überspringen 
läßt. 

Abbrechen: 

Die ESC-Taste drücken. 

Der Editor 


Um sich eigene Spielstrecken 
zu kreieren, wurde ein Editor 
eingebaut. Die Steuerung im 
Editor erfolgt folgender¬ 
maßen : 


Dieses Geschicklichkeitsspiel ist sehr stark an das allseits bekannte Programm 
“Ballblazer“ angelehnt, dem ein faszinierendes Spielgeschehen zugrunde liegt. 
Begeben Sie sich mit uns in den Weltraum, und erleben Sie, was es heißt, einen sprin¬ 
genden Ball auf einem dreidimensionalen Weg unter Kontrolle zu halten. Um einen 
weitergehenden Spaß zu gewährleisten, besteht die Möglichkeit, eigene Spielstufen zu 
entwerfen. 


Das Spielgeschehen 

Das Spiel besteht darin, eine mit Hin¬ 
dernissen gespickte, dreidimensionale 
Strecke mit einem Ball innerhalb eines 
Zeitlimits zu durchfahren. Hierbei 
können die durch Überfahren der blau¬ 
en Bonusfelder gesammelten Credits 
zu Extras umgewandelt werden, was 
das Spiel wesentlich erleichtert. 
Außerdem bekommt der Spieler pro 
Spielstufe drei Sprünge dazu. 

Nach dem Laden müssen im Menü¬ 
punkt “Load Screens“ die gewünsch¬ 
ten Levels geladen werden. 

Im Spiel haben die verschiedenfarbi¬ 
gen Felder folgende Bedeutung: 

Hellgrün und Dunkelgrün: 

Normale Felder ohne besondere Be¬ 
deutung. 

Orange: 

Dieses Feld verlangsamt die Fahrt, und 
es kann auf diesem Feld nicht beschleu¬ 
nigt werden. 


Gelb: 

Auf diesen Feldern kann nicht mit dem 
Feuerknopf gesprungen werden. 

Lila: 

Dieses Feld dreht die Steuerung von 
links und rechts um und umgekehrt. 

Rot: 

Dieses Feld beschleunigt die Ge¬ 
schwindigkeit und läßt sich auch nicht 
auf diesem abbremsen. 

Weiß: 

Das sind Sprungfelder, die den Ball ei¬ 
nige Felder weit springen lassen. 

Blau: 

Durch Überfahren dieser Felder sam¬ 
melt man “Credits“, durch die man an 
Dinge kommt, die einem das Spiele¬ 
leben leichter werden lassen. 

Folgende Extras stehen zur Verfügung 
und können mit der Leertaste (Space) 
ausgelöst werden: 

Fast: 

Schaltet die roten Beschleunigungsfel¬ 
der aus. 


Zuerst wählt man die Zahl des 
zu editierenden Levels - die 
rote Zahl gibt die Anzahl der 
vorhandenen Levels an. 

Wird keine Eingabe gemacht, 
so kann mit der Enter-Taste 
der Editor verlassen werden. Die ver¬ 
schiedenen Feldtypen werden mit den 
Tasten 0 bis 8 angewählt, der Rest der 
Steuerung und der Aufbau der Färb lei¬ 
der erfolgen mit dem Joystick. 

Außerdem sind noch vier weitere Ta¬ 
sten im Editor belegt: 

DEL: Löschen von Feldern. 

ESC: Verlassen eines Levels, ohne daß 
der letzte Stand vor der Bestätigung mit 
Return verändert wird. Mit Return be¬ 
stätigt man, wie gesagt, einen Level, 
und mit der Leertaste muß die soge¬ 
nannte Endline.(wichtig!), die Zeile in 
der das Ziel ist, angegeben werden. 

Dies wird mit den Cursortasten getan, 
indem man auf die gewünschte Zeile 
geht und die Leertaste drückt. 

Wichtig: 

Das faszinierende Spiel finden Sie nur 
auf der DATABOX. 

(Jens Buri & Mattias Wittern/cd) 
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Spiel mit den 

Atomen 


Sie steuern in diesem Spiel ein Was¬ 
serstoffatom, das sich von seinen 
Artgenossen trennt, um ein Neu¬ 
tron zu suchen. Mit diesem zusam¬ 
men will es zu einem Deuteron, das 
ist der Kern des schweren Wasser¬ 
stoffs Deuterium, verschmelzen. 
Das Spielfeld für diese Suche ist 
eine dreidimensionale Spielfläche, 
die in drei Ebenen eingeteilt ist, auf 
denen sich das Atom bewegen 
kann. 
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Auf seinem Weg begegnen dem Atom 
vielfältige Gefahren wie Antimaterie 
und statische Elektrizität. Eine Berüh¬ 
rung damit führt zu einer Atomexplo¬ 
sion, die aber glücklicherweise unge¬ 
fährlich ist, weil sich ja nur ein einziges 
Atom in Strahlung auflöst. 

Dagegen ist die Berührung mit Ele¬ 
mentarmagneten nur zeitraubend, da 
das Atom an diesen abprallt. Auf dieser 
anstrengenden Reise gibt es zum Glück 
auch Energie für das Atom, die dem 
Spieler als Punktebonus gutgeschrie¬ 
ben wird. 

Steuerung: 

Deuteron wird mit Joystick oder mit 

folgenden 

Tasten gesteuert: 

A = HOCH 
Z = RUNTER 
< = LINKS 
> = RECHTS 
SPACE = FEUER 

Die Tastaturbelegung kann aber belie¬ 
big geändert werden, wenn man im 
Hauptmenü “1“ für “Define Keys“ 
wählt. Die Taste für “Hoch“ (oder die 
entsprechende Joystick-Bewegung 
nach vorne) bewirkt, daß das Atom 
eine Ebene höher springt (beziehungs¬ 
weise nach hinten, da die Fläche ja 
dreidimensional ist). 

“Runter“ läßt das Atom nach unten 
(beziehungsweise nach vorn) springen. 
“Rechts“ und “Links“ bewegt das 
Atom in die entsprechende Richtung 
oder bremst es ab. Wenn dauernd in 
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eine Richtung gesteuert wird, be¬ 
schleunigt sich die Bewegung. Feuer 
läßt das Atom auf derselben Ebene hö¬ 
her springen. 

Start: 

Gestartet wird Deuteron mit 
RUN“DEUTERON.BAS“. Das Spiel 
besteht aus folgenden Programmteilen: 

DEUBIN.BAS - Hauptprogramm 
DEUGRA.BAS - Grafik 
DEULEV.BAS - Spiel-Level 
DEUSPK.BAS/DEUSPM.BAS/ 
DEUSPG.BAS - die verschiedenen 
Sprites für das Atom 
DEUTERON - das BASIC-Start-File 



Die einzelnen Listings sind unter den 
jeweiligen Namen abzuspeichern. An¬ 
schließend müssen die einzelnen Pro¬ 
grammteile gestartet werden, um die 
Binär-Files zu erzeugen. Auf Kassette 
müssen folgende Files hintereinander¬ 
stehen: 

DEUTERON. BAS 
DEUBIN.BIN 
DEUSPK.BIN 
DEUSPM.BIN 
DEUSPG.BIN 
DEUGRA.BIN 
DEULEV.BIN 

(Ulrich Denker/cd) 


Deuteron 


für 464-664-6128 

l .— 



10 REM >>>>>»>>>>>>>»>>>>>>>>>>>>>>> [2135] 

20 REM >>>> Deuteron Ladeprogramm <<<< [1718] 

30 REM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1882] 

40 INK 0,0:INK 1,24:INK 2,15:INK 3,6:PAPER [2724] 
0:PEN 3:MODE 0:BORDER 0 

50 LOCATE 7,8:PRINT"Deuteron" [2096] 

60 PEN 2:LOCATE 2,10:PRINT CHR$(164);" by [3708] 
Ulrich Denker" 

70 PEN 3:LOCATE 10 ,12:PRINT"is" [2546] 

80 PEN 1:LOCATE 6,14:PRINT"loading..." [1891] 

90 MEMORY &7FFF [150] 

100 LOAD"deubin.bin",&8000 [1830] 

110 LOAD"deuspk.bin",&8A00:LOAD"deuspm.bin [4381] 
",& 8B 0 0:LOAD"deuspg.bin",& 8C0 0 

120 LOAD"deugra.bin",&8FFC [2246] 

130 OPENOUT"d":MEMORY &6FF:CLOSEOUT [3003] 

140 LOAD"deulev.bin",&700 [1537] 

150 CALL &8000 [453] 


100 ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> [1432] 

110 ' > DEUBIN (c) by Ulrich Denker < [1869] 

120 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1971] 

130 ' [H7] 

140 DATA 21,00,07,11,00,01,01,00,06,ED,B0, [3368] 

3A, FA, BB, FE , 36,5F07 

150 DATA 28,0B,21,C3,B7,22,AO,88,2E,C6,22, [2135] 
A2,88,CD,FF,BB,06CB 

160 DATA 21,01,01,CD,3E,BC,01,56,88,CD,F7, [2535] 
83,01,07,00,CD,0556 

170 DATA B7,BB,CD,19,87,ED,5B,9A,88,AF,12, [1780] 
ED,5B,9C,88,12,B290 

180 DATA 3E,C0,32,9E,88,CD,95,86,3A,9E,88, [3794] 
C6,7F,32,9F,88,5D40 

190 DATA 3C,32,9E,88,CD,08,BC,01,07,00,CD, [1994] 

B7,BB,CD,14,BC,E62 6 

200 DATA 21,00,01,11,00,07,01,00,06,ED,B0, [3528] 
ED,5B,9A,88,D5,8FF 4 

210 DATA 3A,9E,88,3C,67,2E,09,11,9F,9A,CD, [3151] 
4F,86,Dl,ED,53,Bl86 

220 DATA 9A,88,01,5E,88,CD,F7,83,CD,06,BB, [3503] 
FE,30,28,3C,FE,A74A 

230 DATA 31,28,02,18,F3,FD,2E,05,21,F7,88, [2479] 
01,A4,88,CD,F7,4F2A 

240 DATA 83,C5,E5,CD,06,BB,AF,F5,CD,IE,BB, [2743] 
20,08,F1,3C,FE,B001 

250 DATA 50,28,F3,18,F2,Fl,El,77,23,E5,CD, [2738] 
2A,BB,CD,5D,BB,3415 

260 DATA El,CI,FD,2D,20,D8,CD,6C,BB,18,95, [3609] 
01,07,00,CD,B7,6E7B 

270 DATA BB,3E,33,32,28,84,CD,19,87,CD,EF, [1950] 
80,01,3E,84,CD,F740 

280 DATA F7,83,ED,62,22,FE,88,CD,9F,83,28, [4220] 
FB,C3,57,80,21,96D6 

290 DATA 00,89,3E,03,77,23,3E,8B,77,23,3E, [2903] 
12,77,23,3E,34,45FA 

300 DATA 77,23,3E,25,77,23,AF,06,07,77,23, [1781] 
10,FC,3E,07,77,A075 
Llstlng: DEUTERON 


310 DATA CD,90,BB,3A,9E,88,C6,80,32,9E,88, [2780] 
2A,A2 , 88,77 , 3D,B692 

320 DATA 32,9F,88,3A,0C,89,32,0B,89,3A,02, [3114] 
89,CB,27,DA,18 , 0E96 

330 DATA 82,21, 04, 89,BE,D2,18,82,3A,08,89, [2220] 
B7,28,04,3D,32,5E0F 

340 DATA 08,89,CD,24,BB,47 , 3A,F7,88 , CD,IE, [2753] 
BB,28,02,CB,C0,9817 

350 DATA 3A,F8,88,CD, IE, BB,28 , 02 , CB,C8,3A, [3872] 
F9 , 88,CD,1E,BB , C69F 

360 DATA 28,02, CB, DO, 3A,FA,88,CD,IE,BB , 28 , [4187] 
02 , CB,D8,3A,FB,2454 

370 DATA 88 , CD,1E,BB , 28,02,CB,EO,21,04,89, [2853] 
11,03,89,DD,21,0C68 

380 DATA 00,89,CB,40,28,OF,7E,FE,3C,30,OA, [3667] 
C6,18,77,1A,C6,40F0 

390 DATA 18,12,DD,35,01,CB,48,28,0F,7E,FE, [2392] 
OE , 38,OA,D6 , 18,EB6F 

400 DATA 77,1A,D6,18,12,DD,34,01,1A,4E,91, [2954] 
CB,60,20,0B,FE,CE5D 

410 DATA 11,DA,C3,81,D6 , 18,81,12,18,09,FE, [2264] 
4F,D2,C3,81,C6,A101 

420 DATA 18,81,12,21,09,89,7E,CB,50,20,32, [2324] 
CB,58,20,3C,B7,6351 

430 DATA 28,46,2B,FE,7F,38,13,FE,FE,20, 04, [2756] 
36,02,18,07,47,B4D5 

440 DATA 7£,B7,28,01,05,78,3C,23,18,2D,FE, [3237] 
02,20,04,36,02,5AC8 

450 DATA 18,07,47,7E,B7,20,01,04,78,30,23, [2735] 
1B,1A,06,FF,FE,E96F 

460 DATA 01 , CC,5C,84,FE,02,28,10,3C,18,0C, [2863] 
06 , 01,FE,FF,CC,E315 

470 DATA 5C, 84, FE,FE,28,02,3D,77,3A,09,89, [2657] 
47 , 3A,OC,89,80,6F7C 

480 DATA 21,0A,89,CB,7F,28,31 ,47 ,3E,F5, BE, [2793] 
30,1B , 2A , FE,88,DA88 

490 DATA 11,10,27,19,22,FE,88,C5, 01, 4D, 84, [3112] 
CD,F7,83,3E,2F,C77D 

500 DATA 32,28,84,32,05,89,18,20,34,2A,FE, [2501] 
88,11,07,Oft,19,BB4F 

510 DATA 22,FE,88 , 78,D6 , F8,18,OD,CB,5F , 28, [1423] 
09,47,AF,BE,28,1B3D 

520 DATA 07, 78,35,D6,08,32,OC,89,CD, OD, 86 , [3571] 
CD,6A,84,2A,9C,214E 

530 DATA 88,ED,5B,9A,88,22,9A,88,ED,53,9C, [1910] 
88,21,40,01,3A,8D08 

540 DATA 9E,88, 84, 67,5D,54,36,84,23,36, BO, [3304] 
23, EB,01,0C,00,9F0C 

550 DATA 18,OC,11,40,01,3A,9E,88,82,57, EB, [2768] 
01,0E,OO,ED,B0,3CA2 

560 DATA 21,F2,07,19,C6,36,BC,38,02,18,E7, [3565] 
36,00,5D,54,13,C165 

570 DATA 01,OD, 00, ED,BO,B7,11 , BD,37 , ED,52 , [2563] 
D6 , 2F,BC,28,02 , F730 

580 DATA 18,DO,2A,FE,88,DD,21,OB,84,11,10, [2864] 
27 , DD,36,00,2F,9D1A 

590 DATA DD,34,00,ED,52, 30, F9,19,DD, 23,7B, [3393] 
FE,10,20,03,11,8DB9 

600 DATA E8,03,FE,£8,20,03,11,64, 00, FE,64, [2423] 
20,02,1E,OA,FE,FBE6 

610 DATA OA,20, d2, IE,01,FE,01,28 , 02,18,Dl , [2613] 
ED,5B,FE , 88,2A,69E5 
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620 DATA FC, 88,ED,52, 30,OF, ED, 53,FC,88,21, [3707] 
0B,84,11,18,84,E904 

630 DATA 01,05,00,ED,B0,2A,A0,88,3E,01,77, [2734] 
01,00,84, CD,F7 , E2C6 

640 DATA 8 3 , AF , 77,CD, AB ,83 , CD , 19 , BD , 3 A,9E, [3670] 
88,21,00,00,CD,EDEB 

650 DATA 1F , BD,3A,OB,89,C6, 08, 01,00, 00, CD, [2476] 
32 , BC ,3A, OC,89 ,6E39 

660 DATA C6,08,01,16,16,CD , 32,BC , 3A,05 ,89 , [1961] 
B7,CA, 13,81, CD,1DA0 

670 DATA A7 , BC ,06,BE,11,3C,84, CD,22 , BD,10 , [1485] 
F8,21 , EE,86 , CD,2DC7 

680 DATA AA,BC,16,14,01,10,27,OB,78, Bl,20, [3254] 
FB,15,20,F5,21,976A 

690 DATA 28, 84,35,3E,2F, BE, DO,3E,02,CD,90, [3279] 

BB , 01 ,2A,84, CD ,74A7 

700 DATA F7,83,CD,9F,83,28,FB,AF, CD, 90,BB , [3591] 
01, 2A, 84,CD , F7 , A693 

710 DATA 83 ,3A, OC, 89, C6,08,01,00, 00, CD,32, [2123] 

BC , C3, EF , 80 , CD, 38E9 

720 DATA 24 , BB,CB ,67 ,CO,3A,FB , 88 , C3 , IE , BB , [3786] 
FD,21,E0 , 83 , FD,3BE7 

730 DATA 7E,00,B7,C8,47,FD,6E, 01, FD,66,02, [2958] 
3A,9E,88,84,67,127B 

740 DATA 0E,08,7E,E6,55,77,23,23,10,F8,16, [3588] 
07,FD,7E,00,47,83E0 

750 DATA 87 , ED,44,5F,19,0D,20,EA,FD,23,FD, [2505] 
23,FD,23,18,CF,8A3E 

760 DATA 05,32,02,05,82,02,02,72,03,05,C2, [2962] 
03,05,A2,05,01,6411 

770 DATA F4,05,00,00,00,00,00,OA,B7,03,C8, [3096] 
CD,5A, BB ,18,F7,0410 

780 DATA 1F,02,08,53,63,6F,72,65,1F,02,09, [3046] 
00,00,00,00,00,1B29 

790 DATA 1F,02,OC,48, 69, 1F,02,00,30,31,30, [2024] 
30,30,1F,02, 13, 2DA2 

800 DATA 4C,6 9 J , 76, 65,73,1F,03,14,33,00,1F, [2182] 
07,OC,16,01,50,3C4D 

810 DATA 72,65,73,73,20,46,69,72,65,16,02, [2510] 
00,OB,OB,1F,07,9F24 

820 DATA 0C,0F,06,47,41,4D,45,20,4F,56,45, [3412] 
52,00,1F,06,OA,D9F8 

830 DATA 42,4F,4E,55,53,20,31,30,30, 30,30, [3052] 
00,2B,7E,B7,28,09DA 

840 DATA 03,23,7E,C9,36,02,23,7E,80,C9,21, [3349] 
3C,00,DD,21 , 00,E69D 

850 DATA 07,16,00,3A,0A,89,87,5F,7A,CE,00, [4042] 
57,DD, 19, 06,03,8875 

860 DATA OE,10,11,0A,00,3A,0C,89,87,DD,E5, [3157] 
F5,C5,06,00,83,9882 

870 DATA 5F,7A, CE, 00,57,D5,E5,3A,04,89,30, [2148] 

BD, CC , Fl,84,CD ,F479 

880 DATA DO,84, El, Dl, 01, 18,00,B7,ED,42,CI, [3570] 
3E,08,81 ,4F ,11,9053 

890 DATA 00,00,3E , 02,B8,C2, BB ,84,11,06,00, [2721] 
ci irn Ta nr nur 

900 DATA * 8 9 * FD * 8 5 , DD , E1 , DD,24, DD ,24,DD ,23, [3001] 
DD,23,10,BA,C9,7577 

910 DATA D5 , E5,C5,CD,1D,BC,DD,5E,00,DD,56, [2536] 
01 , AF , BA,C4 ,4F, 7783 

920 DATA 86,CI,Dl,E1,09,EB,3E,9F,BB,D8,DD, [3027] 
23,DD,23,C3,DO, 0246 

930 DATA 84,E5,D5,C5,DD,E5,3A,06,89,B7,28, [3643] 
04,3D,32,06,89,D3CD 

940 DATA 3A, 02,89, CB,27,D2,15,85,21,03,89, [2998] 

BE, D2,1E,85,C6,C2A6 

950 DATA 08,37,C3,1E,85,21,04, 89,BE,DA, FE, [2145] 
85,D6,08,5F,1F,1535 

960 DATA 32,02,89,01,08,00,DD, 09, 3E,3C, 21, [2991] 
04,89,BE,30,02 , 51BB 

970 DATA 18,08,DD,2B ,DD, 2B,D6,18,18,F3,4F, [2304] 
0D,0D,0D,DD,6E,D868 

980 DATA 00 , DD, 7E, 01 , B7,CA,E8,85,67,3A,02, [2863] 
89 , CB,27,91,DA,67D3 

990 DATA E8 , 85,CB , 3F ,CB, 3F,CB , 3F , 4F,CB , 39 , [3133] 
CB,39,06,00,37,C27F 

1000 DATA ED,42,4E,0F,30 ,04,CB, 39 , CB , 39 , OF [1971] 
, 30 , 08 , CB ,39, CB,659A 

1010 DATA 39,CB,39,CB,39,3E,03,A1,B7,28,6D [3865] 
,3D,20,37,21, 09, 1943 

1020 DATA 89,7E,B7,20,0F,3A,0C,89,FE,03,38 [3617] 
,04,06, 02, 18,ID,9 9 DA 

1030 DATA 06,FE,18,19,ED,44,47,AF,32, 08, 89 [2563] 
, C5,E5,D5,21, DD, 4BAB 

1040 DATA 86,CD,AA,BC,D1,E1,C1,3A,06,89,B7 [2122] 
,20,3B,70,3E,03,41AD 
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1050 DATA 32,06,89,18,33,3D,20,OC,21,48,8A [3248] 

,22,00,89,3C,32,1387 

1060 DATA 05,89,18,24,C5,D5,F5,DD,E5,21,FF [2692] 

,86,CD,AA,BC,DD,8300 

1070 DATA El,El,Dl,CI,DD,4E,00,06,00,DD,36 [3781] 
,00,00,DD,36,01,14C0 

1080 DATA 00,2A,FE,88,09,22,FE,88,EB,26,00 [3055] 
,11,50,00,CD,ID,OAOB 

1090 DATA BC,ED,5B,00,89,CD,4F,86,DD,El,CI [3262] 

,Dl,El,C9,F5,DD,0282 

1100 DATA E5,21,10,87,CD,AA,BC,DD,El,Fl,C3 [2738] 

,IE,85,2A,9A,88,8509 

1110 DATA 4E,AF,B9,C8,2B,46,2B,56,2B,5E,2B [3334] 

,7B,81,5F,7A,CE,2589 

1120 DATA 00,57,1B,3A,9E,88,C6,37,FD,69,FD [3288] 

,60,EB,BC,38,06,13AC 

1130 DATA 01,00,08,09,18,06,B7,01,BO,37,ED [3104] 

,42,EB,D5,06,00,EF40 

1140 DATA FD,4D,ED,B8,Dl,FD,25,20,E3,22,9A [2432] 
,88,C3,10,86,EB,9301 

1150 DATA 4E,23,46,23,EB,C5,FD,2A,9A,88,FD [2732] 
,23,C5,41,7E,FD,D9 9D 

1160 DATA 77,00,1A,B7,28,01,77,23,13,FD,23 [2757] 

,10,Fl,ED,42,01,OE2B 

1170 DATA 00,08,ED,42,3A,9F,88,BC,38,04,01 [4304] 

,BO,3F,09,CI,10,9677 

1180 DATA DB,CI,FD,5D,FD,54,EB,73,23,72,23 [2576] 
,70,23,71,22,9A,A322 

1190 DATA 88,C9,06,04,78,3E,01,21,08,87,CD [3585] 

,BC,BC,3E,02,21,E9E8 

1200 DATA F7,86,CD,BC,BC,3E,03,21,E6,86,CD [3141] 

,BC,BC,3E,04,21,1A9C 

1210 DATA D5,86,CD,BC,BC,3E,01,21,0C,87,CD [2542] 

,BF,BC,3E,02,21,6BF1 

1220 DATA FB,86,CD,BF,BC,3E,03,21,EA,86,CD [32891 
,BF,BC,3E,04,21,2CAA 

1230 DATA D9,86,C3,BF,BC,01,OF,FF,05,01,14 [2796] 

,FD,05,81,01,01,98E4 

1240 DATA DE,01,00,OF,00,00,01,OF,FF,OB,01 [2105] 

,OA,03,03,81,03,C1BA 

1250 DATA 03,DE,01,08,OF,00,00,01,19,FF,05 [2512] 

,01,19,FC,06,82,E970 

1260 DATA 02,02,77,00,00,OF,00,00,01,OF,FF [2246] 
,05,01,14,FD,05,4158 

1270 DATA 81,01,01,BC,03,00,OF,00,00,CD,14 [2928] 
,BC,01,00,10,C5,1CA6 

1280 DATA 78,3D,41,CD,32,BC,C1,10,F6,CD,38 [1387] 
,BC,3E,OF,CD,DE,063D 

1290 DATA BB,11,54,01,21,78,00,CD,C9,BB,11 [1784] 
,02,FF,01,0F,4B,3ABA 

1300 DATA C5,D5,B7,ED,62,CD,CO,BB,El,E5,29 [3288] 
,EB,21,AO,FF,CD,AFA5 

1310 DATA F6,BB,21,08,00,Dl,19,EB,CI,CD, FA [2211] 
,87,10,E2,DD,21,BB31 

1320 DATA 06,88,DD,6E,02,26,00,DD,5E,01,16 [3514] 
,FF,CD,CO,BB,06,3354 

1330 DATA 4B,DD,5E,00,16,00,21,00,00,C5,CD [2910] 
,ED,BB,CI,CD,FA,D39 5 

1340 DATA 87,10,EE,11,03,00,DD,19,DD,7E,00 [3238] 
,B7,20,D4,01,04,937C 

1350 DATA 05,21,9C,FF,78,FE,03,38,03,OD,18 [2249] 
,01,OC,79,CD,DE,B706 

1360 DATA BB,C5,E5,11,D4,FE,CD,CO,BB,11,58 [2916] 
,02,21,00,00,CD,2150 

1370 DATA F9,BB,E1,2B,2B,C1,10,DC,2B,2B,DD [2984] 
,21,34,88,06,06,7534 

1380 DATA C5,E5,11,AC,FE,CD,CO,BB,11,80,02 [1780] 
,21,00,00,CD,F9,F4E5 

1390 DATA BB,El,16,00,DD,5E,00,19,DD,23,CI [2702] 
,10,E3,ED,5B,9A,F280 

1400 DATA 88,D5,3A,9E,88,3C,67,2E,09,11,9F [2491] 
,9A/CD,4F,86,D1,AC72 

1410 DATA ED,53,9A,88,01,39,88,C3,F7,83,0C [2111] 
,79,FE,10,20,03,E5DB 

1420 DATA OE,08,79,C3,DE,BB,0C,0C,0C,08,11 [2925] 
,18,14,10> 26,08,1F06 

1430 DATA 11,32,10,11,3C,10,0C,46,14,08,4F [2157] 
,10,08,76,OC,12,EF74 

1440 DATA 7E,08,12,86,0C,0C,9C,14,11,A4,10 [2043] 
,08,BA,08,11,C2,7A26 

1450 DATA 08,0D,C8,00,36,24,1A,D8,36,1C,01 [2599] 
,1A,1A,1C,02,OE,9135 

1460 DATA OE,IC,03,04,04,IC,04,18,18,IC,05 [2735] 
,0F,0F,1C,06,06,6B52 

1470 DATA 06,IC,07,14,13,00,04,04,1A,02,12 [2108] 
,07/18,00,IC,01,3B4C 
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dBase II für CPC / Joyce (3") 

Jeder PC Besitzer kennt dieses relationale 
Datenbanksystem von ASHTON TATE. Diese 
Software eignet sich zur Lösung aller Anwen¬ 
dungsprobleme . wie Lager- Adressverwalt- 
ung. Fakturierung Betriebsabrechnung elc. 

(bis zu 65536 Datensätze) Achtung! CPC 
464 -664 Besitzer benötigen eine 64 KB 
Erweiterung CPC 148,- 

Mit deutschem Handbuch Joyce 148,- 




Wir sind Ihr starker 

CPC, Joyce & PC Partner 


Business-Programme CPC: 


Star-Writcrl (3').98,- 

i Textsystem mit einer Violzahl von Möglichkei- 
5 ten: Adreßverwaltung, Grafik, DFÜ. Zeichen- 
[: editior ... 

: Datei-Star (3°) 98,- 

; Universelles Datorvorwattungsprogramm 


Supercalc (3“). 59,80 

Tabolienkalkulattonsprog'amm der Superlative 

Neu Deutsches Handbuch 19,80 


I Programmiersprachen CPC: 


HiSoft Pascal (3*/Kas.) 59,80/39,80 
Assembler (37Kas ).. 59,80/39,80 

(inkl. deutschem Handbuch) 


Sorcery Plus (3").30,- 

Spannendes Geschickfichkeitsspiel mit 
super Grafik. 

Cyrus II Chess (3").49,- 

Denksport auf Ihrem CPC 3D Darstellung. 

Flugsimulator 737 (37Kas) 30.-/20,- 


Diamant von Rabenfels (g) 

Drachenland (t) 

Reise durch die Zeit (t) 

Sherlock Holmes (g, nur 3") 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) 

Pharaonengrab (t) 

je 3"-Diskette / Kassette 38,-- / 28,-- 


Grafik auf CPC: 


EASIART + Trackerball.198,— 

Zeichnen und Konstruieren mit dem Marconi 
Trackerball und dem Grafikprogramm EASI¬ 
ART. Unschlagbar in Kombination mit dem 
Layoutprogramm StopPress 

EASIART + Trackerball + 
StopPress.348,- 


Schaltpläne für: 


: Amor: 

; \ Prowon .219. 

:j Protext 3'. 94. 

!: Protext Eprom.„ 124. 

i MAXAM 3*.„.„..94. 

j MAXAM Eprom.124. 

i j MAXAM II.239. 

;'! Prospell engl. ..„..SO. 

; Prospeil dtsch..79. 

! | STAR DIVISION: 

i | Star-Wnter I.98. 


DR Draw (deutsch") . 198,- 
DR Graph (deutsch") 198,- 
(") nicht CPC 464.664 


I Weihnachten steht vor der Tür ll 


CPC 6128: 

Der Ideale Computer • 3"-Lautwerk 

10r den Einsteiger -CPM Pius und Bast 

komplett mit Grünmonitor GT65 798 ,- 
kompl. mit Color-Monitor CTM644 998 ,- 


Datei-Star.9: 

Statistic-Star.„... 9 

FibuStar Plus CPC ..29£ 

CPC-Knüller: 

ROMBOX CPC.11£ 

Videodigitizer (+).... 34£ 

,- 

CPC +Joy 

ce 

Van der Zalm: 

ADRESCOMP. 5£ 

DATENREM_6£ 

FAKTUREM . 7 

FIBUPLAN.14 

LAGDAT.6f 

L- 

j,- 

5,- 

J,- 

5,- 







FIBUCOMP.9£ 

5,- 

KALKUREM .7( 

PROFIREM 13£ 

Grafik Knüller: 

.- 

MousePack.14 

AMX Maus 

mil Grafiksoftware ....24£ 
StopPress 

DTP Programm.17£ 

StopPress + 

AMX Maus.29£ 

,- 


MICA CPC.98,- 

Terminalstar 3".29.80 

Mini Office II 3“-98,- 

Dart-Scanner (+) .249,- 

Turbo Pascal 3.0 .225,- 

Turbo Toolbox.108,- 

Tascopy Kas./3".39,- 

Tasword Kas./3".69,- 

Tasprint Kas. / 3".39,- 

dk tronics CPC: 

für 464/664: 

Speech Synth. (ROM 148,- 
Speech Synth. (Kas.) 98.- 

Lightpen (Kas.).63,- 

Uhrenmodul. 128 ,- 

für 6128 : 

Uhrenmodul (+).119,- 

AdaptBf lür CPC 6128 (+) 39,- 

Abdeckhauben: 

CPC Monitors.je 39,80 

DMP-Drucker.je 29,80 

DD 1/FD 1/Vortex je 19,80 
CPC Konsolen ... je 24.80 

Joyce Monitor.44,80 

Joyce Tastatur.24,80 

Joyce Drucker.24,80 

3"-Disketten (lost.) 
Maxell CFZ.69.- 


CPC 


CF2 DD .128,- 

Diskettenboxen: 

3--3.57100. 

29,80 

Schnittstellen 


für CPC 6128. 

168,- 

für CPC 464. 

148,- 

org, engl. PACE. 

198,- 

RS 232 Joyce. 

198,- 

Bildschirmfilter: 



für Joyce. 

59,- 


Kassettensoftware: 

Easi-TopcaJc Kas.29.80 

Basic Lehrbuch.29.80 

Taifun Basic Comp. ...48,- 

Mini Office II Kas.49,- 

Kassetten-Spiele: 

Futureworld...20,- 

Stud Poker .20,- 

Manic Miner.20,- 

Poker/17+4...20,- 

Thorr 1+2+3.je 20,- 

Splole Sonderpreise: 
Kassetten.20.- 


Handbücher Deutsch 

li/f-CEC; 

Mini Office II.29,80 

AMX-Maus CPC.29,80 

SiopPress CPC.19,80 

dk'tronics Erw.19,80 

Protext.19,80 

MAXAM.19,80 

Supercalc.19,80 

für Joyce. 

AMX-Maus Joyce.19,80 

Mini Office Prof.29,80 

CP/M PLUS 

Anwenderhandb.46,- 

MasterScan .19,80 

StopPress Joyce.19,80 

Desktop Publisher 19.80 

MiCA .. 39.- 

LocoScripl2.— S9,- 

LocoFile...59.- 

Public Domain: 

1000 PDP").je 20,- 

PD Kotulla 

mit deutschem Hb je 30,- 


je 29,80 
je 19,80 
je 19,80 
,...19,80 
,...29,80 
...29,80 


CPC 464/664/6128 

CTM 644/640. 

GT 64/65 . 

DD1 / FD1 . 

DMP 2xxx/3xxx .... 
Joyce 8256/8512.. 


NmtmKrcrn* 

MicroPro für CPC/Joyce 

ML -nifrhl 

Profilieren auch Sie vonm Nutzen eines 

■.vernimm 

millionenfach bewahrten Textverarbeitungs¬ 

mit MailMerge 

Text^rnrtxiflurtg 

programms und erledigen Sie alle Schreib¬ 
arbeiten auf eine schnelle und komfortable 


Art und Weise. 

8?— 

Mit Serienbrieffunktion 

Mit deutschem Handbuch y 


Sensationelle Preissenkung 


Profiprogramme ausootpcwdt 

Wir haben den Alleinvertrieb für dBasell, 
Multiplan, Wordstar 3.0 und Microsoft 
Basic (CPC+Joyce) von Markts Technik 
übernommen I Sellien Sie also Interesse 
an einer durch und durch professionellen 
Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde 
und wenden sich einfach" an uns. 
Software Paket 


dBase II + Wordstar + Multiplan zum 

sensationellen Paketpreis von ^gg 

Handbuch (auch einzeln erhältlich) 

49,- 

Händleranfrage.n erwünscht 
Suche noch Kooperationspartner 
aus der ehemaligen DDR 


v.’Ai 

StiinHdn ( lt J 


MICR SOFT 
BASIC 


I CPC-Renner von AMSTRAD: 


M P2 rTV-Anschluf)-) ...148,- 

Mit h le dieses Modu'ators können Sie ein 
Farbtemsehgerat an ihren CPC anschlielJen. 

MP3 fTV-Tunen.199.« 

Aus Ihrem Cotor-Momt wird ein Farbfernseher 

CT1 f'Radio-Uhr-Timer) .. 99,— 


Multiplan Microsoft CPC /Joyce (3") 

Ja. Sie haben richtig gelesen das bewahrte- 
Tabellenkalkulationsprogramm gibt es auch 
für Ihren Computer. Wenn Sie die zeit¬ 
raubende manuelle Verwaltung tabellarischer 
Aufstellungen von Hand satt haben, ist 
Muhip'an genau das Richtige lür Sie. 

CPC 464-664 Besitzer benötigen eine 
64 KB Erweiterung CPC 99,— 
Mit deutschem Handb uch Jpy ce ^ ^g __ 

asic+Assembler CPC6i28/Joyce 


Komplettes Entwicklungspaket mit: Basic- 
Compiier 5.4 Basic-Interpreter 4.51 und 5.21. 
Maao-Assembler, Link Kinking Loader.Crel 
Cross-Referenc Facility und Lib Library 
Manager. 

Ein Muß für jeden ernsthaften Basic-und 
Assembler Programmierer II g 9 „ 

Mit deutschem Handbuch , 

Joyce 148,- 






















































































































vorab telefonisch ein Angebot machen 


3'Dlskette/ Kassette 


Kopierprogramme: 


Mastercopy CPC (3”)..65,- 

Es gibt so gut wie kein Programm, daß von 
Mastercopy nicht geknackt wird. Übersichtliche 
Monüsteuerung. 

Supercopy CPC/Joyce(3") 65,- / 85,-- 

Supercopy ist wio der Name schon sagt 


64 KB / 256 KB.149,-/269,- 

512 KB .419,- 

Eintach aul den Expansionsport der CPC 
Rückseite aufstecken, und fertig 


Vokabeltrainer / Verbentrainer. 

CPC / Joyce (3") 49.- (Kas.) 39,- 

Lerntrainer Joyce.49,- 

Universelle Lernprogramm 

Terramaster CPC (Erdkundelernprg.) 


Rücknahmeangebot 
für CPC /Joyce 
Besitzer. Sollten Sie 
auf ein anderes 
System PC XT / AT / | 
80386 umateigen 
wollen, nehmen wir 
Ihre Gebrauchtanlage 
zu Höchstpreisen in 
Zahlung 


LoCoScript2 (Textverarbeitung) .198,- 

mit deutschem Handbuch 

LocoSpell2 (Rechtschreibung 168,— 

In deutsch mit engl. Handbuch 

LocoFile (Datenbank) 168,— 

für LocoScript2 mit deutschem Handbuch. 

Loco Font Set i und 2 79,80 / 68,40,— 


MINI DOS JOYCE.50,« 

Mit Hilfe dieser Software können Sie auf Ihrem 
Joyce PCW MS-DOS-Dlsketten lesen, 
schreiben und formatieren. Sie benötxjen dazu 


Straße. Hausnummer 


Das Joyce Modul kann je nach Ausstattung 
mit dem DBT03 mit emen Akust kkoppler 
oder Modem ab 598,— 


mt Kaoei. keine Software nötig. 

ln Verbindung mit einem MP 2 auch mit einem TV 

betreibbar Anschluß mit D8T03 oder Modem. 

248 ,- 


PLZ. Ort: 


Teiefon-Nr. Datum: 


Zubehör 


256 KB (mit Einbauanleitung) 


Sollte einmal Ihr zweit¬ 
bestes Stück ein 
kleines Wehwehchen 
haben, garantieren wir 
Ihnen durch eine 
modern eingerichtete 
Werkstatt mit 
absoluten Spitzentech¬ 
nikern im eigenen Haus, 
einen guten Sevice. 


. — . 

LocoMail2 (Serienbnef) 
lör LocoScrpt2 


Men Compulersystem: 


DD1 (inkl. Contr.). 398,- 

Eln Muß für jeden CPC 464/664/6128-Besiizer 
Controller (auch einzeln erhältlich) 198,- 


FD1 (2.-Laufwerk CPC) 3".. 198,- 

Achtungl Lauft am CPC 464 nur mit Contr. 

FD4 (2.-EinbauLaufw. Joyce) 3" ....398,- 


3,5" LW (CPC/Joyce). -..je 240,- 

Achtungl Lauft am CPC 464 nur mit Contr. 


5,25" LW (CPC/Joyce). je 320,-- 

Achtungl Lauft am CPC 464 nur m.t Contr. 
Laufwerke in stabilem Metaligehause 


98,- 


Trackb. PC Bus/ Ser. 398,- 
Trackb. PC Amstrad 198,- 
Trsckb. PC Schneide 190,- 
Trackb. PC/1/3 Atari 198,- 
Trackb. Amiga 198,- 


Paket mit 98 / 48,- 

3,5" oder 5,25" 

Auftragsb. Faktura 
Adress / Lager / Platten 
Zeitschrift / Bücherverw. 
mit deutschem Handbuch 


Euro PC Tastatur 24,80 
Euro PC Monitor 39,80 
Monitor 1512/1640 39,80 
PC Tastatur 24,80 


PC Kaufmann 1111,— 
Works mit B.-Maus 199,- 
Star Writer 3.2 298.- 

Star Writer 5.0 998.- 

Star Manager 2.0 190.- 

Textmakor 2.01 278.- 

Datamaker 248,- 

M&T C- Schulung 98.- 
M&T Pas. Schulung 98.- 
M&T Bas. Schulung 98.- 
PC Globe 168.- 


i Locomotive: 

I LocoScript 2 ..148.- 

LocoMaü 1 .-.128.- 

LOCOMail 2 .168,- 

LocoSpeil 2.168.- 

ij LocoScript ♦ Spell.248.- 

: LocoFile . 168.- 

: ■ LocoFont Set 1.79.80 

|j Loco Font Set 2.68,40 

jij LocoScript Übungsdisk 19.80 

ij STAR DIVISION 

:l Statistik Star . 98,- 

: : j Starmaä.—.-99,- 

j-j Datei Star.-.99.- 

?j Mailing-System. 189,- 

:• Star-Base...198.- 

;ij Business Star 298.- 

i Fibu-Star Plus.298.- 

i Kontenblatter Fbu . . 35.90 
; Loco-Merge.-.98.- 


für 


CPC 


Joyce 


BTX 


Modul 


j Joyce PCW 8256: 

i • 3 '-Laut werk (180 KB) 

= • Drucker ♦ Textsoftware 
| • CPM-Plus und Base 


• 256 KB 998,- 

Arnor: 

PROWORT. 219.- 

PROSPELL (dt.) .79,- 

MAXAM II.—. 239,- 


Umweftschutzpapier 
Zweckform 1000 BL 24,80 
Etiketten 200 Stk —.16,- 
70 x 70 3‘ und 3.5‘ 

Da ten Übertragung 

Dataphon (2400 Baud) 698,- 
Dataphon 21 (300 b) 298,- 
Dataphon 21-23 

(1200 8aud) -398.- 

Software DFÜ 3*-58.- 

Nullmodem- Kabel-68,- 


168,- 


Amstrad 


Trackball 


118,- 
.298,- | 
.298.- 
...78,- 
.338,- 
.138,- 
...29,80 
598,- 
.148,- 
.225,- 
. 148,- 
.198,- 
...69.- 
...39,- 
...98.- 
. 148,- 
.198,- 
...98,- 
. 148,- 
.168,- 
... 59,50 
.198,- 
...89,- 
.129,- 


Joyce 


Zubehör 


Lernprogramme CPC / Joyce: 


Joyce-Knüller: 

Desktop Publisher. 

... + AMX-Maus (+)... 

MasterScan (+). 

MasterPaint. 

MasterScan/-Paint .... 
Mini Office Profess. ... 
...Dtsch. Zeichensatz 
BTX-Modul Joyce ab 

Tasword 8000 . 

Turbo Pascal 3.0. 

Turbo Toolbox. 

Pascal M+T... 

Prompt (Datei) . 

Prompt Druck. 

Turbo Adress. 

Turbo Faktura. 

Headline. 

MICA CAD. 

Comac Litbox 4.0. 

Comac Kasse Plus.... 
Comac-Banktransfer. 

Vereinsverwalt. .. 

Schreiblehrgang. 

PSE2. 


Drucker: 

DMP3160 (9-N.).498,- 

Star LC10 (9-N.).498.- 

AMSTRAD LQ3500.. 698,- 
Star LC24-10 (24-N.) 798,- 


Papier 

Zweckform 1000 BL ...29,80 


Auf das sollten Sie achten. 


1 


Joyce PCW 8512: 

•3--LW (180 + 720 KB) 

• Drucker + Textsoftware 

• CPM-Plus und Basic 

•512KB 1398,- 


Joyce PCW 9512 1 698,- 


Diverses: 

Datenrekorder ♦ Kab. 
Druckerk. 6128/464 
Traktor NLO40I. 

Monitorvertangerung: 

. .CPC 6128 .. 

...CPC 464 .. 

Druckervertangerung: 

lür Joyce (2 Kabel) . 

Msrgin Maker 
Papiorf. Joyce 


Joysticks 

Compe'.ition pro 
Quickshot II . 


Schneider XT /AT 


Software 


Laufwerke: 


AMSTRAD 


-Laufwerke aus eigener 
I Produktion I 


Soeichererweiterunqen CPC: 


Fleetstreot Edit. 
FISKUS 88/89.. 
WS-Tuner. 


Joyce-Spiele: 

After Shock. 

Anais of Rome. 

Batman. 

Bridge Player. 

Classic Games. 

Cyrus 3D Schach. 

Fish.. 

Football Fortunes. 

Jinxter.—. 

Lancelot. 

Matchday II. 

Sleve Davis Snooker. 

Starglider. 

The Guild of Thieves.. 
Tomahawk 


Joyce-Katalog: 

Genaue Produkt- 
Beschreibungen 
PCW-Adaoter (♦) 


148.- 

139.- 

49.60 


.79.- 

89.- 

.59.- 

.59.- 

.69.- 

49.80 

89.- 

69.- 

89.- 

.69.- 

.69.- 

.69.- 

89.- 

89.- 

79.- 


39.80 

19.80 


Farbbänder: 

NLQ 401/DMP. 

LQ 35-/NL10/PCW 
Joyce (Carbon) .... 

PCW9512.. 

Star LC 10 . 

Star LC 24-10. 


19.80 

24.80 

39.80 

19.80 

19.80 

24.80 




i 


Speichererweiterung Joyce: 


98,- 

38,- 

79,80 


29,80 

24,50 


58,- 


39,- 


Locomotive Software 


Datenübertragung CHM - DOS 

















































































































































I—Programm 


1480 DATA IC,02,IC,02,10,06,IC,07,12,12,OE [2071] 
,06,0C,0E,07,0F,8B74 

1490 DATA 01,1F,02,05,11,30,20,2D,20,50,6C [3117] 
,61,79,20,47,61,7930 

1500 DATA 6D,65,12,1F,02,08,OF,02,11,31,20 [2323] 
,2D,20,44,65,66,5E80 

1510 DATA 69,6E,65,20,4B,65,79,73,12,00,00 [2297] 
,OD,80,26,CO,BF,El55 

1520 DATA C8,B1,CB,B1,OC,1F,01,02,OF,01,50 [3424] 
,72,65,73,73,20,2498 

1530 DATA 4B,65,79,20,66,6F,72,20,2E,2E,2E [3642] 
,1F,06,05,0F,06,B0BF 

1540 DATA 55,50,20,20,20,20,00,1F,06,07,OF [2895] 
,05,44,4F,57,4E,1FB5 

1550 DATA 20,20,00,1F,06,09,OF,03,4C,45,46 [3015] 
,54,20,20,00,1F,C246 

1560 DATA 06,OB,OF,20,52,49,47,48,54,20,00 [2929] 
,1F,06,OD,0F,02,71E9 

1570 DATA 46,49,52,45,20,20,00,45,47,27,1F [2769] 
,2F,E8,03,00,00,B922 

1580 DATA 03,8C,12,34,25,00,00,00,00,00,00 [3374] 

,00,00,00,00,00,A822 


1590 adr=&8000:MEMORY &7FFF [1055] 

1600 FOR zeile=104 TO 248 [1235] 

1610 pr=0 [117] 

1620 FOR i=l TO 16 [317] 

1630 READ a$:a=VAL("&"+a$) [883] 

1640 POKE adr,a:adr=adr+l [717] 

1650 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

1660 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+65 [1890] 

536 

1670 NEXT i [375] 

1680 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 TH [2610] 
EN pr2=pr2+65536 

1690 IF pr<>pr2 THEN PRINT"Pruefsummenfehl [3615] 
er in Zeile";zeile:STOP 

1700 NEXT [350] 

1710 SAVE"DEUBIN.BIN",b,&8000,&905 [2125] 


100 ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
110 ' > DEUGRA (c) by Ulrich Denker < 
120 1 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
130 ' 


140 DATA 00,00,OA,07, 
00,00,00,44,88,6201 
150 DATA CC,00,00,00, 
00,88,C8,88,88,BE9D 
160 DATA 00,00,CO,CO, 
4C,44,88,3C,48,1F62 
170 DATA 44,4C , 4C, 44, 
08,40,C8,4C , 8C , 498B 
180 DATA 4C, 4C, CC ,OC, 
00,00,0C,C4,0C,7199 
190 DATA 88,00,00,00, 
44,OC , CC,00,00,7753 
200 DATA 00,00,00,44, 
58,00,00,88,88,917C 
210 DATA CC,00,00,00, 
00,88,88,44,40,32CD 
220 DATA 00,00,00,CC, 
88,44,00,80,00,E22F 
230 DATA 00,C8,00, 44, 
00,80,0p,04,08,3FB4 
240 DATA 88,44,00,04, 
00,48,88,C8,44,53E1 
250 DATA 00,40,00,84, 
88,88,C4,00,40,878D 
260 DATA 48,88,8C,00, 
C8,00,80,48,88,1089 
270 DATA 8C,88,40,00, 
80,48,88,8C,88 , El98 
280 DATA C8,00,80,48, 
0C,C8,08,40,08,8B5F 
290 DATA 80,04,84,8C, 
84,44,84,00,00,532F 
300 DATA 40 , 8C , C8,44 , 
40,00,00,04,8C,491E 
310 DATA CO, 44, 40,88, 
00 , CC,48 , CC,44,DDEF 
320 DATA 48, 08,00,OC, 
8C,44,44,CC,00,CF48 
330 DATA 00,C8,CC,4C, 
CC,04,88,00,84,26E9 
Listing: DEUTERON 


OE,00,00,00,44,00,00, 
00,CC,44,44,88,00,00, 
84,CO,94,28,40,08,CC, 
44,3C,80,04,8C,OC,88, 
44,CO,48,84,OC,48,80, 
8C,CO,4C,88,00,00,00, 
00,00,00,AA,AA,AA,07, 
00,CC,00,44,80,00,00, 
00,CC,04,00,00,00,8C, 
00,80,00,00,C4,44,44, 
00,48,8C,00,44,00,40, 
8C,40,44,00,40,04,08, 
C4,00,40,48,88,8C,88, 
80,48,88,8C,88,40,00, 
88,C8,00,40,08,80,48, 
C4,44,84,00,04,CO,88, 
84,00,00,40,CC,48,CC, 
00,CC,CC,84,CC,40,08, 
84,88,44,84,00,00,48, 
4C,44,88,00,44,C8,C4, 


[1432] 

[1256] 

[1971] 

[117] 

[2597] 

[2695] 

[3106] 

[3796] 

[2218] 

[2705] 

[2240] 

[2605] 

[3229] 

[2499] 

[2634] 

[2174] 

[2663] 

[2719] 

[2921] 

[3940] 

[1649] 

[3127] 

[3342] 

[2756] 


340 DATA 8C,40, 44, 00,44, 00,08,88, 88, C4,00, [2991] 
04,40,08,8C,00,4E24 

350 DATA C4,00,04,40, 08, 8C, 88, 40,00,08,40, [2815] 
80,8C,00,40,08,A68D 

360 DATA 88,40,C4,8C,88,40,08,88,84,4C,8C, [3177] 
CC ,44,84,00,84, D4B5 

370 DATA 8C,88,88, 44, 84,00, 84, 44,8C,44,44, [2068] 
84,00,84,44,CC,79E0 

380 DATA 48,4C,40,08,84,00,C8,C4,C4,40,08, [1998] 
84,00,C4,00,C8,8CA2 

390 DATA C8,08,84,00,80,88,40,C8,08, 40,48, [3038] 
CC,00,44,C0,08,F928 

400 DATA 40, 48, 8C,44,44, C8,08,40,08,8C,00 , [2147] 
44,40,08,40,08,BlCE 

410 DATA 8C,88, 44, 40,84, 40, 08,8C,00,44, 40, [2150] 
84,00,84,88,88,2EA5 

420 DATA CC, 08,84,00,84,8C,00, 44, 08, 84,40, [2492] 
40,4C,00,44,84,FF1£ 

430 DATA 84, 40,40,08,44, 44,40,CO,00,CO,OC, [3707] 
88,44,00,84,00, CA7 1 

440 DATA 48,OC,00,CC,00, 08, 00, 04, 84,00,44, [2435] 
00,00,00,00,84,AE2F 

450 DATA OC , CC , 00,00, 00, 00, 84, CO,4C, 00, 00, [2203] 
00,48,84,40,CO, EE24 

460 DATA 80,00, 04,80,84,88, 00,40,00, C8, 08, [2768] 
C8,08,44,40,08,FE16 

470 DATA C8 , 00 , C8 ,08,44,00,80, C8, CfO, C8 ,4C, [3140] 
44, 00, 80,04, 08, 55BE 

480 DATA C8,08,44,40,08,44,C4,C8,OC,44,C8, [3167] 
00 ,44 , OC,8C, 84, 9DE6 

490 DATA 44, 4C, 00, 00,CC, 88,C4,44,88,00, 00, [3292] 
00 , 8C,84,44,00,CECC 

500 DATA 00,00,00,88,CO,44, 00, 00,00,00,8C, [2363] 
00,84,00,00,00,85AF 

510 DATA 00,8C, 04, 84, 00, 00,00,00,C8, 00, 48, [2918] 
84,00,00,00, C4, A5AF 

520 DATA 8C, 00, 84, 00, 00,40,8C, 8C,08,40,08, [2577] 
00,40,8C , OC, 44, 013A 

530 DATA 40,08,00,80,C8,4C,4C,00,84,00,80, [4022] 
8C ,84, CC, 00, 84,B579 

540 DATA 00,80,C8,CO, 44, 08, 84, 00,40,8C, 84, [2802] 
CC, 08, 40, 00,04,1632 

550 DATA 48,48, C8,0C,48,00,00,C0,CC ,CO,84, [3431] 
84,00,40,84,08,OEED 

560 DATA 80,84,48,00,40,08,00, 80,OC, 84,00, [1883] 
04,80,04,80,84,82BE 

570 DATA CO,00,00,80, 40,OC,84, 84,00, 40, 08, [1864] 
84, 00, 48,08, 00,A41B 

580 DATA 40,08,84,00,00,00,00,00,84,84,00, [3034] 
00,00,00,00,CO,E3F2 

590 DATA 08, 00,00,55,55, 55, 05,5F, 00,44, CC, [2361] 
CC ,CC ,00,44,CC, FB66 

600 DATA CC ,CC ,00,44,CC, CC, CC ,00,44, CC,CC, [2104] 
CC ,00,44, CC , CC , 8C51 

610 DATA CC ,00,44, CC , CC,CC ,00,44, CC , CC , CC , [3134] 
00,44, CC , CC,CC,18A3 

620 DATA 00,44, CC , CC,CC,00,44,CC , CC , CC , 00 , [2070] 
44 , CC,CC , CC , 00,318A 

630 DATA 44,CC, CC,CC,00,44,CC, CC,CC,00,44, [2810] 
CC, CC, CC ,00,44,6350 

640 DATA CC,CC ,CC,00,44,CC , CC,CC ,00,44 ,CC, [2714] 
CC, CC,00 ,44, 4C,C6A8 

650 DATA CC , CC,00,44,CC , CC , CC ,00,44, CC ,CC, [2104] 
CC, 00,44,CC,CC,8C51 

660 DATA CC,00,44,CC , CC ,CC, 00, 44, 4C ,CC, CC, [3466] 
00,44,CC,CC , CC , 58A3 

670 DATA 00,44,CC,CC , CC, 00, 44,CC ,CC, CC,00 , [2720] 
44,4C ,CC,CC,00 , 358A 

680 DATA 44, CC,CC,CC,00,44,4C,CC,CC,00,44, [3077] 
CC,CC,CC,00,44,6351 

690 DATA CC , CC , CC ,00,44,4C, CC,CC ,00,44, CC , [2235] 
CC, CC, 00 ,44 ,4C, C6AA 

700 DATA CC , CC ,00,44,CC,CC, CC,00 ,44, CC, CC, [2163] 
CC,00,44,4C,CC , 8D51 

710 DATA CC,00,44,4C,CC , CC ,00,44, CC,CC,CC, [2526] 
00,44,4C,CC,CC,1AAB 

720 DATA 00,44, 4C , CC , CC , 00 ,44 , 4C,CC ,CC , 00 , [3983] 
44, CC , CC ,CC, 00,Bl 9A 

730 DATA 44 ,4C, CC , CC ,00,44,4C,CC, CC, 00,44, [2742] 
4C,CC, CC,00,44,6B71 

740 DATA 4C, 44, CC,00, 44, 88,00,CC, 00,04, 08, [2899] 
00, OC, 00, 04, 84, 4CC2 

750 DATA 04,0C,00,04,84,0C,0C,00,04,0C,0C, [2419] 
OC,00,04,84,OC,4951 


Listing: DEUTERON 


22 PC 10/11’90 

























Programm—| 


760 DATA 00,00,04,84,00,00,00,04,84,00,00, [3258] 
00,04,00,00,0C,D48A 

770 DATA 00,04,84,00,00,00,04,84,00,00,00, [2621] 
04,00,OC,OC,80,AFF9 

780 DATA 00,48,84,84,00,40,84,00,00,00,04, [2424] 
84,00,00,00,04,CAFE 

790 DATA 00,00,00,00,04,84,00,00,00,04,84, [2931] 
OC,00,00,04,0C,B522 

800 DATA 00,00,00,04,OC,OC,00,00,04,84,00, [2756] 
00,00,04,0C,0C,2A41 

810 DATA 00,00,04,00,00,00,00,04,84,OC,OC, [2986] 
00,04,84,00,00,56A2 

820 DATA 00,04,0C,0C,00,00,04,00,00,00,00, [1876] 
04,84,00,00,00,2548 

830 DATA 04,0C,0C,00,00,04,00,00,00,00,04, [2332] 
00,00,00,00,04,4214 

840 DATA 0C,0C,00,00,04,0C,0C,00,00,04,00, [2424] 
00,00,00,04,84,84A8 

850 DATA 00,00,00,04,0C,0C,00,00,04,0C,0C, [3358] 
00,00,04,84,00,0951 

860 DATA 00,00,04,0C,0C,00,00,04,84,0C,0C, [2961] 
00,04,00,00,00,5482 

870 DATA 00,04,84,00,00,00,04,84,00,00,40, [2666] 
40,48,48,00,00,A669 

880 DATA 04,84,0C,0C,00,04,0C,0C,00,00,04, [3188] 
84,00,00,00,04,4AB6 

890 DATA OC,00,00,OA,55,09,30,00,00,00,78, [2416] 
70,28,00,00,00,4547 

900 DATA 00,00,00,78,70,28,00,00,00,00,00, [2140] 
00,78,70,28,00,A254 

910 DATA 00,00,00,00,00,78,70,28,00,00,00, [2100] 
00,00,00,78,70,2881 

920 DATA 28,00,00,00,00,00,00,78,70,28,00, [2036] 

00,00,00,00,00,4Al4 

930 DATA 78,70,28,00,00,00,00,00,00,78,70, [1916] 
28,00,00,00,00,12A5 

940 DATA 00,00,78,70,28,00,00,00,00,00,00, [2538] 
78,70,28,00,00,44A9 

950 DATA 00,00,00,00,78,70,28,00,00,00,00, [1953] 
00,00,78,70,28,512A 

960 DATA 00,00,00,00,00,00,78,70,28,00,00, [2293] 
00,00,00,00,78,9478 

970 DATA 70,28,00,00,00,00,00,00,78,70,28, [2023] 
00,00,00,00,00,2532 

980 DATA 00,78,70,28,00,00,00,00,00,00,78, [3154] 
70,28,00,00,00,8952 

990 DATA 00,00,00,78,70,28,00,00,00,00,00, [2140] 
00,78,70,28,00,A254 

1000 DATA 00,00,00,00,00,78,70,28,00,00,00 [2100] 
,00,00,00,78,70,2881 

1010 DATA 28,00,00,00,00,00,00,78,70,28,00 [2036] 

,00,00,00,00,00,4Al4 

1020 DATA 78,70,28,00,00,00,00,00,00,78,70 [1916] 
,28,00,00,00,00,12A5 

1030 DATA 00,00,78,70,28,00,00,00,00,00,00 [3099] 
,50,70,00,00,00,4689 

1040 DATA 00,00,00,00,00,20,00,00,00,00,00 [1517] 
,00,00,00,20,00,8040 

1050 DATA 00,00,00,00,00,00,00,20,00,00,00 [1749] 

, 00 , 00 , 00 , 00 , 00,2000 

1060 DATA 20,00,00,00,00,00,00,00,00,20,00 [1339] 
,00,00,00,50,14,08A4 

1.070 DATA 00,44,20,00,14,E4,00,00,3C,28,9C [2701] 
,64,00,14,FO,00,3066 

1080 DATA 00,B4,28,9C,34,00,3C,6C,00,10,FO [1590] 
,60,14,34,44,30,6824 

1090 DATA 88,00,00,70,AO,14,20,90,44,00,00 [2693] 
,00,90,E4,00,64,A932 

1100 DATA 28,90,AO,00,00,40,34,88,34,FO,30 [2175] 
,B0,00,00,B4,44,CB8A 

1110 DATA 6C,F0,3C,F0,30,80,10,B4,B4,F0,78 [2845] 
,A0,3C,B0,00,90,F4B1 

1120 DATA 70,F0,B4,A0,78,14,A0,00,10,B4,28 [1857] 
,90,28,14,00,00,7952 

1130 DATA 00,00,B4,44,28,AO,00,60,88,00,00 [2621] 

,44,90,14,B4,00,2989 

1140 DATA 30,AO,00,00,90,30,3C,B4/3C,F0,B0 [2992] 
,00,44,30,28,FO,EA42 

1150 DATA 70,AO,30,20,00,50,FO,88,10,30,00 [2917] 
,60,20,00,44,70,2BEC 

1160 DATA 00,00,80,00,40,40,00,A5,55,09,3F [2925] 
,00,00,00,70,78,8AAB 

1170 DATA 20,00,00,00,00,00,00,70,78,20,00 [2576] 
,00,00,00,00,00,4410 

1180 DATA 70,78,20,00,00,00,00,00,00,70,78 [1499] 
, 20 , 00 , 00 , 00 , 00,1122 
Llsting: DEUTERON 


1190 DATA 00,00,70,78,20,00,00,00,00,00,00 [2175] 
,70,78,20,00,00,8448 

1200 DATA 00,00,00,00,70,78,20,00,00,00,00 [2671] 
,00,00,70,78,20,2112 

1210 DATA 00,00,00,00,00,00,70,78,20,00,00 [2510] 
,00,00,00,00,70,8870 

1220 DATA 78,20,00,00,00,00,00,00,70,78,20 [2645] 
,00,00,00,00,00,2234 

1230 DATA 00,70,78,20,00,00,00,00,00,00,70 [2517] 
,78,20,00,00,00,0891 

1240 DATA 00,00,00,70,78,20,00,00,00,00,00 [2775] 
,00,70,78,20,00,4224 

1250 DATA 00,00,00,00,00,70,78,20,00,00,00 [2379] 
,00,00,00,70,78,1099 

1260 DATA 20,00,00,00,00,00,00,70,78,20,00 [2576] 
,00,00,00,00,00,4410 

1270 DATA 70,78,20,00,00,00,00,00,00,70,78 [1499] 

, 20 , 00 , 00 , 00 , 00,1122 

1280 DATA 00,00,70,78,20,00,00,00,00,00,00 [2175] 
,70,78,20,00,00,8448 

1290 DATA 00,00,00,00,70,78,20,00,00,00,00 [2671] 
,00,00,70,78,20,2112 

1300 DATA 00,00,00,00,00,00,70,78,20,00,00 [2510] 
,00,00,00,00,70,8870 

1310 DATA 78,20,00,00,00,00,00,00,70,78,20 [2645] 
,00,00,00,00,00,2234 

1320 DATA 00,70,78,20,00,00,00,00,00,00,70 [2517] 
,78,20,00,00,00,0891 

1330 DATA 00,00,00,70,78,20,00,00,00,00,00 [2775] 
,00,70,78,20,00,4224 

1340 DATA 00,00,00,00,00,70,78,20,00,00,00 [2379] 
,00,00,00,70,78,1099 

1350 DATA 20,00,00,00,00,00,00,70,78,20,00 [2576] 
,00,00,00,00,00,4410 

1360 DATA 70,78,20,00,00,00,00,00,00,70,78 [1499] 

, 20 , 00 , 00 , 00 , 00,1122 

1370 DATA 00,00,70,78,20,00,00,00,00,00,00 [2175] 
,70,78,20,00,00,8448 

1380 DATA 00,00,00,00,70,78,20,00,00,00,00 [3152] 
,00,00,50,78,00,21B2 

1390 DATA 00,00,00,00,00,00,50,78,00,00,00 [1737] 

,00,00,00,00,00, D800 

1400 DATA 28,00,00,00,00,00,00,00,00,28,00 [1693] 
,00,00,00,00,00,0A1 4 

1410 DATA 00,00,28,00,00,00,00,00,00,00,00 [2947] 
,28,00,00,00,00,0285 

1420 DATA 00,00,00,00,28,00,00,00,00,50,14 [2847] 
,00,44,28,00,14,5415 

1430 DATA E4, 00, 00, 3C, 28, CC ,6C,00,14,F0,00 [2597] 
,00,B4, 2 8 , CC , 6C , 5A87 

1440 DATA 00,3C,6C,00,10, FO, 6C, 44,6C,44, 3C [2588] 
, 88,00,00,70,AO,7441 

1450 DATA 44,28, 9C, 44, 00,00,00, 90, E4, 00, 6C [3199] 
,28,9C,A0,00,00,2B5F 

1460 DATA 40, 34,88,30, FO,3C,BO, 00,00,B4,44 [1365] 
,6C,FO,3C,FO,30,F5D9 

1470 DATA 80,10,B4 ,B4, FO , 78 , AO , 30, BO,00,90 [2088] 
,70,F0,B4,A0,78,9536 

1480 DATA 14, AO,00,10, B4, 28, 90,28,14,00,00 [2681] 
,00,00,B4,44,28,2B57 

1490 DATA AO, 00, 60, 88,00, 00, 44,90,14,B4, 00 [1893] 
,3C,A0,00,00,90,3509 

1500 DATA 3C,3C,B4,3C,F0,B0,00,44,3C,28,F0 [2250] 
,70,AO,30,20,00,4081 

1510 DATA 50,FO,88,10,30, 00,60, 20, 00,44, 70 [2349] 
,00,00,80,00,40,7D45 

1520 DATA 40, 00,OF , D5 ,08, 2B , CC , CC , CC,CC , CC [1675] 
,CC,CC,88,B4,30,4D79 

1530 DATA B4 , 30,30 ,3C,B4,88,70,3C,B4,30,30 [2361] 
,3C,E4,28,50,F0,4AC6 

1540 DATA F0,F0,F0,F0, E4,00,10,B4,3C,30,B4 [2613] 
, 30 , 9C,00,00, B4,B446 

1550 DATA 30, 30, B4, 30,88, 00, 00, 70, 30,30,B4 [3135] 
,60,28,00,00,50,7050 

1560 DATA FO,F0,FO,E4,00,00,0O,10,B4,3C,3C [2661] 
,9C,00,00,00,00,OB14 

1570 DATA B4,30,30,88,00,00,00,00,70,30,60 [1860] 
,28,00,00,00,00,385A 

1580 DATA 50,F0,E4,00,00,00,00,00,10,B4,9C [2111] 
,00,00,00,00,00,B688 

1590 DATA 00, B4,88,00, 00,00, 00,00,00,70, 00 [3272] 
,00,00,00,00,00,1030 

1600 DATA 00,50,00,00,00,00,00,00,00,00,00 [2197] 
,00,00,00,80,00,0114 

1610 DATA 00,44,00,00,00,80,00,00,00,40,00 [2396] 
,00,40,80,40,28, 90BA 
Listing: DEUTERON 
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1620 DATA 00,40,00, AO,40,00,00,10,00,04,14 [3319] 
,10,88,00,00,88,1650 

1630 DATA 00,OC, 08, 00,50, 00, 10,50,40, 14, AO [2814] 
,00,20,00,00,28,C028 

1640 DATA 14,94,28,08,00,00,00,88,50,68,20 [2247] 
,A0,80,00,00,88,30A2 

1650 DATA 3C,3C,3C,3C,88,00,44,D0,F0,F0,FO [2632] 
,F0,6C,00,8C,6C,0F05 

1660 DATA E4 , CC, E4, CC,A4,88, 04 ,6C,E4 ,64,E4 [3542] 
,64,A4,00,CO, 64, 5152 

1670 DATA E4,E4,E4,64,EO ,80,04, 6C ,E4, 8C , E4 [2821] 

,64,A4,00,8C,6C,EBCO 

1680 DATA E4,30,E4,64,A4,88,14,6C,E4,F0,E4 [3312] 

,E4,AO,00,14,48,DDC3 

1690 DATA 4C,CC,E4,BC,28,00,00,2C,68,3C,3C [3791] 
,94,00,00,00,00,1900 

1700 DATA 88,78,2C,00,88,00,00, 00, 88,78,20 [2865] 
,00,88,00,50,00,9B3B 

1710 DATA 00,BO,B4,00,78,00,10,88,D8,58,08 [3012] 
,00,10,00,00,10,93A9 

1720 DATA 44,DO,04,00,88,00, 40, 00, 40, IC,48 [3226] 
,00,60,00,00,00,6C8A 

1730 DATA 00,40,00,00,40,80,80,00,00,40,00 [1833] 
,00,00,00,00,3F,102E 

1740 DATA 07,17,04,08,28,AO,00,04,08,04,00 [2241] 

, 50, 00,14,AO,08 , 851D 

1750 DATA 28,10,00,70,00,00,AO,00,00,40,68 [2822] 
,34,50,00,AO , 28,5DBE 

1760 DATA 00,80, 20, 00,14,00,00, 20, 70,AO,EO [2304] 
,0Q,00,30,C0,E0,8D84 

1770 DATA CO,DO,AO,40,00,48,CO,58,00,10,64 [177s] 

, CC,40,CC,40,00,9800 

1780 DATA 08,44,48,CO,04,40,40,08,E4, 48, EO [3030] 
,04,40,40,10,04,F3FB 

1790 DATA CC,40,00,40,40,48,10,04,40,48,04 [2223] 
,40,58,40,40,40,CF3F 

1800 DATA 0C,4C,4C,08,E4,CC , 40 , CC,40 , CC,08 [1951] 
,10,80,00,00,90,5708 

1810 DATA CO,10,00,50,30, 90, 50,70,A0,A0,60 [2838] 
,50,70,40,AO,00, 62A2 

1820 DATA 00,10,60,60, AO, 28,00,00,00,14,CO [2666] 
,34,00,10,00,00,BEOB 

1830 DATA 00,40,00,14,00,04,14,00,00,00,00 [2610] 
,08,04,08,50,00,7831 

1840 DATA 20,04,08,1D,OF,D8,FO,FO,FO,FO,FO [2572] 

,D9,D8,FO,E4,OA,8B41 

1850 DATA D8 , FO,88,D8,FO,AO,F0,E4,00,00,14 [3572] 
,90,00,00,FO,CC , 8E24 

1860 DATA FO,88,90,30,30,30, 30, 78,09,90,30 [3140] 

,78,88,90,30, E4, 1567 

1870 DATA 90 , 30,60,30,78,88,44,CC , 60 , CC,D8 [2065] 

, 30,E4,30,E4 , 90,FFOA 

1880 DATA 30,30,78 , E4,CC , CC,3C,B4,78,CC,3C [1246] 
,B4,6C,3C,E4,11,DD9C 

1890 DATA 14,60,02, CC, 78,30,28,44,30,E4,30 [3275] 
,E4,E6,9C,78,3C,8F52 

1900 DATA FO , FO, E4, 30,E4, 78 ,CC,IE,E4, 66, 30 [2909] 

, 30,78, 90, 60,46, 6 8B2 

1910 DATA 88,F0,B4,3C,44,9C,E4,3C,E4,FF,EE [1976] 
,78,30, 30,3C,E4,B260 

1920 DATA 90,60,30,E4,14,78,88,90,78,90, E4 [2461] 

,30,B4,88,F0,F0,0E8C 

1930 DATA 78,28,CC,78,30,78,F7,6E,3C,E4,78 [1556] 

,CC,CC,90,78,30,A035 

1940 DATA E4,9E,7ß,88,9C,78,9C,E4,3C,B4,88 [2950] 
, BO , 70,BO,AO, §C, F53A 

1950 DATA 78,9C,78,00,44,3C,E4,3C,F0,F0,9C [2658] 
, 78,30, E4,90, 78,7727 

1960 DATA CC,90,78, 90,E4, 30,FO,60,98, BO, 70 [2112] 
,6C,9C,78,9C,78,F0C1 

1970 DATA 00, 44, 90,E4,30,30,78,3E,78,30,E5 [1250] 
,30,30,78,88,30,3341 

1980 DATA 78, 90, 30, 30, 28, D8, 30,BO,60, 50,30 [2587] 
,30,E4, 00, 33,90,9187 

1990 DATA 78,90,78,89,43,C3, 00, 0F,CC,3C,E4 [2112] 
,51,A2,0F,3F,FF,FE20 

2000 DATA CF,03,50,30,70,2D,0F,00,00,33,00 [3533] 
,11,90,78, 90,78, 63FD 

2010 DATA 89,00,82,00,4F,CE,3C,E4,00,A2,OA [2428] 
,2A,55,8A,02,00,37B1 

2020 DATA BO,B4,82 , 05,00 , 00 , 11 , 00,00,CC,78 [2723] 
,90,78,88,00,00,0645 

2030 DATA 00,00,8A,00,11 , 22, 00 ,00,00 , 55,8A [2590] 
, 02,00,00,03,E4,4553 

2040 DATA 05, E4 , 34,B4,00 , 00,CE, 30,B4 ,78,88 [2402] 

,00,00,00,00,00,B537 

Listing; DEUTERON 


2050 DATA 00,11,00,A2,00,00,55,00,00,00,00 [2774] 
,41,60,00,60,50,005*6 

2060 DATA 50,00,EF,CE,30,B4,78,88,00,00,00 [2617] 
,00,00,00,00,00,483A 

2070 DATA 00,00,00,00,8A,00,00,00,50,D8,88 [2627] 
,E4,10,14,00,AA,513E 

2080 DATA 90,30,30,E4,00,00,00,00,00,00,00 [2892] 
,00,00,00,00,00,0048 

2090 DATA 55,00,00,00,00,10,98,88,64,10,10 [3297] 
,55,EE,30,30,FO,4E7 3 

2100 DATA 89,02,00,00,00,00,00,00,00,00,00 [2921] 
,00,00,00,00,00,0044 

2110 DATA 00,00,10,98,88,64,10,30,00,00,00 [2201] 
,00,00,00,00,00,400E 

2120 DATA 10,98,88,64,10,88,00,3F,07,19,08 [2666] 
,00,00,04,00,00,DBEB 

2130 DATA 04,90,00,00,10,00,00,60,40,00,00 [2278] 
,40,00,00,80,00,0526 

2140 DATA 00,00,44,00,00,00,00,88,44,CC,CC [2272] 
,44,00,00,44,00,04.80 

2150 DATA 30,64,88,00,00,00,34,24,34,64,00 [2788] 
,44,98,BO,CO,90,7043 

2160 DATA E4,88,00,60,60,60,60,30,00,44,DO [3608] 
,F0,F0,F0,F0,88,9765 

2170 DATA CC,64,E4,CC,E4,CC,E4,44,04,E4,64 [2368] 
,E4,64,A0,C0,64,85EE 

2180 DATA E4,E4,E4,64,E0,44,C4,E4,64,E4,64 [1498] 


10 ' >>>>>>>>>>>>>»>>»»>>>>»>»>>>> [1419] 

20 1 >Deulevelcreator by Ulrich Denker< [434] 

30 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1883] 

40 OPENOUT"D":MEMORY &24FF : CLOSEOUT [3054] 

50 DEF FNlo(x)=255 AND UNT(x) [712] 

60 DEF FNhi(x)=255 AND INT(x/256) [1633] 

70 lauf=&2500 : RESTORE 240 [2456] 

80 READ sa: DIM sprites(sa-l) [1315] 

90 FOR i=0 TO sa-1 [765] 

100 READ adres:sprites(i)=adres [2280] 

110 NEXT : RESTORE 250 [1096] 

120 FOR y=0 TO 3 [1179] 

130 READ sl$:READ s2$ : s$=sl$+s2$ [1560] 

140 FOR x=0 TO LEN(s$) -1 [1414] 

150 ad=sprites(VAL( "&"+MID$ (s$,X+1 ,1 )) ) [2322] 

160 POKE lauf+X*2,FNlo(ad) [1581] 

170 POKE lauf+x*2+l,FNhi(ad) [1504] 

180 NEXT X [356] 

190 lauf=lauf+&200 : IF y=0 THEN RESTORE 270 [2786] 
•.GOTO 210 

200 RESTORE 290 [809] 

210 NEXT y [359] 

220 PRINT”Fertig ! Bitte Diskette einlegen [3637] 

!": CALL &BB06 
Llsllng: DEUTERON 


,AO,CC,64,E4,64,B78A 

2190 DATA E4,64,E4,44,64,E4,E4,E4,E4,AO,CC [3351] 
,84,04,80,E4,CC,12A6 

2200 DATA E4,44,60,30,30,30,30,88,44,98,38 [2026] 
,70,30,60,88,00,AD4D 

2210 DATA CC,70,A4,FO,64,00,00,44,30,78,38 [3166] 
,20,00,00,88,CC,E6BE 

2220 DATA 70,64,CC,00,40,00,44,CC,CC,00,80 [2566] 
,90,00,00,00,00,BB3A 

2230 DATA 00,60,08,00,00,10,00,00,04,00,00 [2742] 
,00,00,00,00,00,4219 

2240 DATA 00,00,00,00,00,00,00,00,00,00,00 [1427] 
,00,00,Oi),00,00,0000 

2250 DATA 00,00,00,00,00,00,00,00,00,00,00 [1427] 
, 00 , 00 , 00 , 00 , 00,0000 


2260 adr=&8FFC:MEMORY &8FFB [1359] 

2270 FOR zeile=104 TO 315 [1212] 

2280 pr=0 [H7] 

2290 FOR i=l TO 16 [317] 

2300 READ a$:a=VAL("&"+a$) [883] 

2310 POKE adr,a:adr=adr+1 [717] 

2320 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

2330 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+65 [1890] 

536 

2340 NEXT i [375] 

2350 READ pr$ :pr2=VAL( "&"+pr$ ) : IF pr2<0 TH [2610] 
EN pr 2 =pr 2 + 65536 

2360 IF propr2 .THEN PRINT"Pruefsummenfehl [3615] 
er in Zeile”;zeile:STOP 

2370 NEXT [350] 

2380 SAVE"DEUGRA.BIN",b,&8FFC,&D34 [2222] 
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230 SAVE"deulev",b,£2500,6600 [787] 

240 DATA 12,0,&8a03,&8b03,&8c03,&8fff,&906 [3669] 

6,&92D2,&94B1,&9665,&99fC,&98a0,&9c64 

250 DATA 32100000005b00200000lb00002000200 [6173] 

0000088910200a0004b00020100000404bab400007 

000b0070000400005b007001500000000350007792 

0104040 

260 DATA 499690067568777777729005000504043 [6284] 
4060b9ba00272000027000b0002000000242000545 
454545445201030200007007000800004445554440 
008000ab9bb00 

270 DATA 332100000000200024000200100010100 [6015] 
077000888020400400400666666560400404004005 
658734357786555005056500050050030000406666 
0587656 

280 DATA 5766600070000070906014050504a4005 [6916] 
400654566555555555003009602130302494202005 
4000500005010 3020090700700080000000a000aba 
008009b94 9bb0 

290 DATA 033000000059002000000002923010007 [6531] 
7b2000000020004b00006999000400480040046402 
0a0200b00300056500a03500000500676888009001 
0200900 

300 DATA a0b00000004940b06000b200050040004 [5923] 
0600a0000200024200028200042019000242002000 
005000550001030200007007000800004445554440 
008000ab9bb00 


100 ' »»»»>»»»»»»>»>»>»>» [1432] 

110 1 > DEÜSPG (c) by Ulrich Denker < [1545] 

120 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1971] 

130 ' [117] 

140 DATA 00,00,05,OB,11,00,00,00,00,14,3C, [2777] 

00,00,00,00,00,9A80 

150 DATA 00,00,00,00,3C,9C,28,00,00,00,00, [2839] 
00,00,44,CC,CC,C047 

160 DATA 6C,CC,CC,8C,00,00,00,44,88,14,B4, [2889] 
3C,3C,00,04,4C,51F0 

170 DATA 00,00,88,00,78,B4,F0,3C,28,00,0C, [3020] 
00,44,00,00,FO,DB41 

180 DATA FO,3C,F0,28,00,44,88,44,00,00,F0, [1945] 
F0,F0,78,A0,00,D24B 

190 DATA 00,88,CC,00,00,BO,F0,F0,F0,28,00, [2431] 
00,CC,44,00,50,2518 

200 DATA 70,70,30,F0,B4,00,00,88,44,00,00, [2257] 
70,70,30,FO,AO,0F28 

210 DATA 00,00,88,00,CC,00,BO,30,FO,BO,AO, [2970] 
00,CC,00,00,44,7632 

220 DATA CC,BO,30,30,70,E4,CC,88,00,00,00, [2276] 
00,70,90,30,B0,015E 

230 DATA AO,00,00,00,00,00,00,10,60,CO,70, [2305] 
00,00,00,00,00,1E50 

240 DATA 00,00,50,30,30,FO,00,00,00,00,00, [2897] 
00,00,00,EO,70,41BB 

250 DATA AO,00,00,00,00,00,00,00,00,00,20, [213$] 
00,00,00,00,00,0450 


260 adr=&8000:MEMORY &7FFF [1055] 

270 FOR zeile=104 TO li5 [1236] 

280 pr=0 [117] 

290 FOR i=l TO 16 [317] 

300 READ a$:a=VAL("&"+a$) [883] 

310 POKE adr,a:adr=adr+l [717] 

320 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

330 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 

36 

340 NEXT i [375] 

350 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THE [2610] 

N pr2=pr2+65536 

360 IF propr2 THEN PRINT"Pruefsummenfehle [3615] 
r in Zeile";zeile:STOP 

370 NEXT [350] 

380 SAVE"DEUSPG .BIN",b,Si8000,SrC0 [1346] 


100 ' '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> [1432] 

110 ' > DEUSPK (c) by Ulrich Denker < [728] 

120 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1971] 

130 ' [117] 

140 DATA 00,00,05,06,OB,00,00,14,28,00,00, [2603] 

00,00,3C,3C,00,9888 

150 DATA 00,44,CC,CC,CC,8C,88,CC,14,FO,3C, [2192] 
28,4C,88,50,B4,FF55 
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160 DATA F0,28,44,88,50,F0,78,28,44,CC,10, [2527] 
7 0,BO,AO,CC,44,8AAF 

170 DATA 98,30,70,E4,88,00,50,90,BO,28,00, [2787] 
00,00,60,70,00,6324 

180 DATA 00,00,00,10,AO,00,00,00,08,16,00, [2572] 
00,00,3C,28,00,0124 

190 DATA 00,00,00,44,44,F0,A0,44,00,00,44, [3365] 
00,50,78,78,88,AF9C 

200 DATA 00,00,14,00,9C,FO,FO,00,CC,00,88, [3558] 
9C,50,78,78,00,3054 

210 DATA 28,28,00,00,14,F0,3C,00,88,00,88, [1969] 
88,50,FO,FO,O0,453D 

220 DATA 00,88,00,00,FO,78,78,AO,00,00,28, [2925] 
00,14,FO,B4,00,372C 

230 DATA 00,00,00,00,14,F0,B4,00,00,00,00, [2290] 
00,5O,78,78,00,0B92 

240 DATA 00,00,00,00,14,F0,A0,00,00,00,00, [1487] 
14,78,3C,3C,78,2272 

250 DATA 00,00,50,78,B4,3C, B4 , B'O , AO ,00,14, [2582] 
B4,3C,BO,78,3C,1225 

260 DATA B4,00,50,78,38,78,78,78,3C,00,70, [2313] 
70,B4,BO,B4,B4,39EB 

270 DATA F0,28,50,38,F0,B4,3C,3C,78,00,10, [3309] 
B4,B0,F0,78,78,A7F6 

280 DATA 3C,A0,00,30,70,70,B0,B4,78,A0,00, [2612] 
10,BO,F0,F0,F0,8666 

290 DATA 50,00,00,00,00,10,00,00,00,00,00, [3504] 
00,00,00,00,00,4028 


300 adr=&8000:MEMORY &7FFF [1055] 

310 FOR zeile=104 TO 119 [1216] 

320 pr=o [H7] 

330 FOR i=l TO 16 [317] 

340 READ a$:a=VAL("&"+a$) [883] 

350 POKE adr,a:adr=adr+l [717] 

360 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

370 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 

36 

380 NEXT i [375] 

390 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THE [2610] 
N pr2=pr2+65536 

400 IF pr<>pr2 THEN PRINT"Pruefsummenfehle [3615] 
r in Zeile";zeile:STOP 

410 NEXT [350] 

420 SAVE"DEUSPK.BIN",b,&8000,&F9 [1430] 


100 ' >>>>>»>>>>>>>>>>>»>>>>>>>>>>>>> [1432] 
110 ' > DEUSPM (c) by Ulrich Denker < [1755] 
120 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [1971] 
130 ' [117] 


140 DATA 00,00,05,09,OE,00,00,00,14,3C,00, [2578] 
00,00,00,00,00,4500 

150 DATA 00,3C,9C,28,00,00,00,00,44,CC,CC, [2208] 
6C,CC,CC,88,00,0A1E 

160 DATA 44,CC,14,FO,3C,3C,00,8C,00,CC,00, [1704] 
14,FO,B4,3C,00,2B75 

170 DATA 04,08,88,00,50,F0,78,B4,00,00,4C, [2257] 
88,00,78,F0,B4,05A4 

180 DATA FO,28,00,44,88,00,70,30,FO,B4,AO, [2962] 
00,44,CC,00,B0,S0D2 

190 DATA BO,70,FO,28,00,CC,44,88,50,30,FO, [2929] 
70,00,44,88,00,8D5B 

200 DATA CC,98,30,30,FO,CC,CC,00,00,0p,50, [1698] 
60,70,34,00,00,2710 

210 DATA 00,00,00,00,30,90,AO,00,00,00,00, [1832] 
00,00,50,70,00,81A2 

220 DATA 00,00,00,00,FO,78,78,AO,00,00,28, [3057] 
00,14,FO,B4,00,370E 


230 adr=&8000:MEMORY £7 FFF [1055] 

240 FOR zeile=104 TO 112 [1219] 

250 pr=0 [117] 

260 FOR i=l TO 16 [317] 

270 READ a$:a=VAL("&"+a$) [883] 

280 POKE adr,a:adr=adr+l [717] , 

290 pr=pr*2 : IF pr>65535 THEN pr=pr-65535 [2485] 

300 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 

36 

310 NEXT i [375] 

320 READ pr$:pr2=VAL("6"+pr$) : IF pr2<0 THE [2610] 

N pr2=pr2+65536 

330 IF propr2 THEN PRINT" Pruef summenfehle [3615] 
r in Zeile";zeile:STOP 

340 NEXT [350] 

350 SAVE"DEUSPM.BIN",b,68000,682 [2294] 

Llsting: DEUTERON 
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oder Die Kunst, 

ein Blatt Panier zu gestalten 




Wie mühsam die Erstellung einer Zeitungsseite sein 
kann, werden Sie spätestens merken, wenn Sie Text und 
Grafiken zusammenmischen wollen. Um unnötige und 
mühselige Arbeiten gar nicht erst aufkommen zu lassen, 
bieten wir Ihnen das Programm “Newspaper“, mit dem 
man sich sogar seine eigene kleine Zeitung schaffen 
kann. 


Das, was auf dem Bildschirm zu sehen 
ist. soll natürlich auch auf einen 
Drucker gebracht werden, deshalb be¬ 
sitzt das Programm auch eine “einge¬ 
baute“ DlN-A4-Hardcopy-Rouline. 
die allerdings nur auf dem NLQ 401 
einsatzbereit ist. 

Um “Newspaper" auch auf Ihrem 
Computer lauten zu lassen, benötigen 
Sie zunächst ein Diskettenlaufwerk und 
Teile der früher erschienen Profi- 
RSX-Serie. Wer also die Programmtei¬ 
le von der Proß-RSX-Serie besitzt, 
braucht nur die Teile l, 2 und 4. Zur 
Erinnerung: Diese Teile wurden in den 
Ausgaben 6/87. 7/87 und 0/87 veröf¬ 
fentlicht. 

Wer diese Serie noch nicht mitbekom¬ 
men hat. bekommt die benötigten Li- 
stings nachgeliefert. Um den verschie¬ 
denen Computertypen (464/6128) ge¬ 
recht zu werden, sind zwei verschiede¬ 
ne Listings abzutippen. Für den CPC 
464 sind drei zusätzliche und für den 
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CPC 6128 sind ebenfalls drei Listings 
abzutippen. 

Die Listings nennen sich für den CPC 
464: G 1-464, G2-464 und T-464. Die 
Listings für den CPC 6128 nennen 
sich: Gl-6128, G2-6I28 und T-6128. 
Das eigentliche Hauptprogramm sollte 
unter TIMEMAKE. BAS abgespeichert 
werden. Doch wir wollen Sie nicht ab- 
schrecken, sondern darauf hin weisen, 
daß gute Prügrarnmqualität ihren Preis 
hat und somit auch Arbeit bedeutet. 
Doch lesen Sie erst einmal die besonde¬ 
ren Merkmale dieses Programms 
durch. Gefällt es Ihnen und wollen Sie 
es trotzdem nicht abtippen, dann bleibt 
noch immer die DATABOX mit ihren 
ganzen Programmen. 

D as Hauptinenii 

1.) Zeitungsseite editieren: 

Hier kann man die Zeitungsseite erstel¬ 
len und abspeichern. 


2. ) BASIC: 

Zurück ins BASIC, ohne das Pro¬ 
gramm zu löschen. Neustart mit 

MODE 2: GOTO 270 

ohne den Bildschirm zu löschen. 

3. ) Diskettenverwaltung: 

Hier ist es möglich, Files zu löschen, 
umzubenennen, das Laufwerk zu 
wechseln und den Benutzerbereich zu 
ändern. 

4. ) Ausdrucken: 

Sprung ins Hardcopy-Programm, das 
auf der Diskette mit dem Namen 
TIMEMAKE.COP stehen sollte. 

Eine Zeitungsseite editieren: 

1. ) Seitenhälfte wählen: 

Bei diesem Punkt können Sie die Sei¬ 
tenhälfte wechseln. Eine Zeitungsseite 
besteht aus zwei Hälften, die beide auf 
Diskette als Screen mit 17 kByte abge¬ 
speichert werden. Beim Wechseln wird 
die alte Seite nicht gelöscht . Wie sie ge¬ 
löscht wird, wird später erklärt. 

2. ) Text eingeben: 

Dies ist der umfangreichste Teil. Hier 
können Texte eingegeben werden, die 
sich rotieren, vergrößern, invers oder 
unterstrichen darstellen lassen. Hier 
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Verwendete RSX-Befehle: 

ASCII 

BELL 

CHAR.ROT 

COPYSCR 

DIN 

DRIVE 

(Amsdos) 

ERA 

FETT 

FORCE 

GDISC 

INVERS 

INVERT 

NORMAL 

PRINT 

READTXT 

RECHTECK 

(Amsdos) 

REN 

S. ON 

SCREEN 

SCHRIFT 

T. OFF 

TSPEED 

UNT.WAITKEY 

(Amsdos) 

XOR 



wurde die Tastatur mit den deutschen 
Umlauten versehen. 


Bele gung der Cursortasten 
Cursortasten: 

Bewegen des Cursors in der gewählten 
Buchstabengröße 

SHIFT + Cursor: 

Bewegen des Cursors um eine Position 

CTRL+Cursor: 

Einstellen der Schriftgröße 

CTRL+SHIFT + Cursor: 

Einstellen der Rotierung 

CTRL+CLR: 

Löschen des Bildschirms 

CTRL+ENTER: 

Zurück ins Menü 

CTRL + U 

Unterstreichen ein/aus 

CTRL+I: 

Invers ein/aus 

DEL 

Löschen in Buchstabengröße 


Schriftg röße 

Welche Schriftgröße gewählt wurde, 
kann oben in der Statuszeile ersehen 
werden. Mit CTRL + Oben/Unten wird 
die Schriftgröße höher/niedriger, und 
mit CTRL + Rechts/Links wird die 
Schriftbreite schmaler/breiter. 

Rotieren: 

Bei der Rotierung der Zeichen bewir¬ 
ken die Pfeiltasten die entsprechende 
Rotierrichtung. 

Bei Invers und Unterstreichen werden 

— wie bei ConText — oben in der Sta¬ 
tuszeile die Buchstaben T und 'U ? an¬ 
gezeigt. 

Löschen Bildschirm: 

Beim Löschen des Bildschirms gibt es 
keine Möglichkeit mehr, diesen zu ret¬ 
ten (es sei denn, man hat ihn vorher ab¬ 
gespeichert). 

Beim Verlassen des Menüs wird die 
Schriftgröße, die Rotierrichtung, die 
Invers- und Unterstreich-Darstellung 
auf den Ausgangszustand zurückge¬ 
setzt. 

Grafik einbauen: 

Damit eine Zeitung nicht langweilig 
aussieht, ist es hier möglich. Grafiken 
einzubauen, die man vorher mit einem 
Malprogramm oder mit einem Digilali- 
sierer erstellt hat. Einzige Vorausset¬ 
zung: Der Screen muß eine Länge von 
17 kByte haben und in Mode 2 erstellt 
worden sein. Die Screens können in 
diesem Menü-Punkt geladen werden. 
Nach dem Laden erscheint ein Recht¬ 
eck. mit dem man die Grafik umranden 
kann. Die Steuerung erfolgt hier auch 
mit den Cursortasten. Mit SHIFT + 
Cursor kann man das Rechteck größer 
oder kleiner machen. 

Sind Sie damit fertig, drücken Sie 
COPY. um die Zeitungshälfte erschei¬ 
nen zu lassen. Jetzt kann die Grafik mit 
den Cursortasten und COPY an die ge¬ 
wünschte Stelle kopiert werden. Mit 
TAB gelangt man wieder zum Grafik- 
Sereen und kann eine neue Grafik um¬ 
randen. Wollen Sie keine weitere Gra¬ 
fik kopieren, so müssen Sie ENTER 
drücken, um ins Menü zu gelangen. 

Kurzinfo der Tasten: 

— Screenname anwählen: Cursorta¬ 
sten und Copy 

— Grafik vom Grafik-Screen auswäh- 
lcn: Gursortasten zum Steuern des 
Rechtecks, SHIFT + Cursor. um die 


Größe des Rechtecks zu ändern. 
COPY. um zur Zeitungsseite zu ge¬ 
langen. 

— Grafik einbauen: Cursortasten zum 
Bewegen des Rechtecks; COPY. um 
die umrandete Grafik zu kopieren: 
TAB. um erneut zum Grafik-Screen 
zu kommen; ENTER, um zum 
Menü zu kommen. 

Text dazuladen: Hier wird das Pro¬ 
gramm TIMEMAKE.TXT geladen. 
Dort ist es möglich, ConText-Dateien 
in die Zeitung einzufügen. Achtung: 
Es werden immer nur die ersten 25 Zei¬ 
len einer Datei geladen. Diese Datei 
darf keine vergrößerte Schrift oder an¬ 
dere Steuerzeichen (auch unterstri¬ 
chen) enthalten! 

CURSORTASTEN bewegen das 
Rechteck auf die gewünschte Textstel¬ 
le, die in die Zeitung kopiert werden 
soll. 

SHIFT+ CURSOR: Das Window, in 
dem der Text dargestellt wird, kann mit 
dieser Tastenbelegung größer bezie¬ 
hungsweise kleiner gemacht werden. 

TAB: Rücksprung und Laden weiterer 
Texte möglich. 

COPY: Kopieren des Textes 

CTRL-I-ENTER: Zurück zum Times- 
maker-Programm 

Halbseite spcichern/laden: Speichern 
beziehungsweise Laden von Halbseiten. 
Es müssen mindestens 17 kByte auf der 
Disk vorhanden sein — vorher mit der 
Diskettenverwaltung überprüfen! Au¬ 
ßerdem dürfen keine illegalen Dateina¬ 
men gewählt werden (zum Beispiel 
“^^SEITE-A.”’" !). 

Zurück: Sprung ins Hauptmenü 

Ausdrucken 

Hier muß man die zwei Dateinamen für 
die beiden Seitenhälften angeben, die 
dann im DIN-A4-Format ausgedruckt 
werden sollen. 

Nochmals: Die Hardcopy läuft nur mit 
dem NLQ 401, aber Anpassungen an 
andere Drucker sind erbeten! 
Ansonsten ist Anpassung an andere 
Drucker nur möglich, wenn man die ei¬ 
gene Hardcopy-Routine ins Programm 
einbaut (was leicht möglich ist. weil 
das Programm voll mit REMs doku¬ 
mentiert ist). Besitzt man das Pro¬ 
gramm CopyShop ist es noch leichter: 
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CopyShop laden, beide Screens laden 
und ausdrucken (im Format I). 
WICHTIG: Nach dem Ausdrucken er¬ 
folgt beim Hardcopy-Programm ein 
Reset! 

Erfor d erliche Hardware 

1) Ein CPC 464/6128 

2) Ein Drucker, der dem NLQ401 ähn¬ 
lich ist und eine DIN-A5-Hardcopy er¬ 
zeugen kann. 

3) Eine Floppy (Vortex-User müssen 
Änderungen vornehmen). 

Anpass ung an Vortex-Flop py 

Ich selbst besitze keine Vortex-Floppy. 
kann also nur beschreiben, was mit der 
Vortex-Floppy garantiert nicht laufen 
kann. Als erstes sollte man das Pro¬ 
gramm mit LOAD "TIMEMAKE 
.BAS“ laden und folgendes ändern: 


1. ) Zeile 1800: 

— Nicht von 0-229 sondern von 0-15 — 

IF eing>15 THEN eing=15 

2. ) Zeile 1810: 

— Statt 

P0KE &A701, (USER) 

den Vortex-RSX Befehl für USER. 

3. ) Zeile 1850-1870: 

— Hier soll eigentlich eine Routine für 
Diskettenfehler stehen. Vortex-User 
können diese löschen und statt dessen 

1860 kd=0 
1870 ös=0 
1880 RETURN 

eingeben. Haben Sie aber eine eigene 
Routine, so können Sie diese in den 
drei Zeilen einbauen. 

Die Rückparameter: 
kd.... 1 = Keine Disk im Laufwerk 
0 = Disk im Laufwerk 
ds.... 1 =Disk ist schreibgeschützt 
0=Disk ist beschreibbar 


Abti ppen der Listing s 

1) Listing I abtippen und unter dem 
Namen TIMEMAKE. BAS abspei¬ 
chern. Dies ist das Hauptprogramm. 
Vor dem Laden unbedingt 

P0KE &AC00.255 

eingeben, da das Programm nach dem 
Laden nur noch zirka 2000 Bytes frei 
läßt (HIMEM liegt bei &3FFF, wegen 
zwei Bildschirmspeicher). 

2) Listing 2 abtippen und abspeichern 
unter TIMEMAKE.TXT. 

Dies ist das Programm zum Einbauen 
von Texten. 

3) Listing 3 abtippen und abspeichern 
unter TIMEMAKE.COP. Dies ist die 
Hardcopy-Routine. Nummer 2) und 3) 
können nicht im Direktmodus geladen 
werden, denn die Programme laufen 
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nicht ohne Profi-RSX. Also immer 
TIMEMAKE.BAS starten. 

Hardcopy 

Es ist eine DIN-A5-Hardcopy und läuft 
nur mit dem NLQ-401-Drucker. 

Anpassung an CPC 6128 

In der Zeile 230 alle 464 durch 6128 er¬ 
setzen. 

Verwendete POKES 

POKE &A701,user: Für Wählen des 
Users von 0-229 (nicht von 0-16). 

POKE &C000,snr: Wird als Spei¬ 


cherstelle für die Seitennummer be¬ 
nutzt, wenn TIMEMAKE.TXT gela¬ 
den wird. 

POKE &AF0(),flag: Wird bei der 
Rückkehr aus TIMEMAKE.TXT als 
Flag benutzt, damit die Zeitungsseite 
nicht gelöscht wird. 

POKE &AF01,snr: wie &C000. 
Vor dem Eingeben von Listing 1 muß 
man POKE &AC00.255 eingeben. 
Dieser bewirkt, daß überflüssige Leer¬ 
zeichen automatisch entfernt werden. 
Hat man dies vergessen, so helfen fol¬ 
gende Befehlsfolgen: 

<RESET> 

LOAD "TIMEMAKE.BAS“ 

ERA.“TIMEMAKE.BAS“ 


SAVE “TIMEMAKE.BAS“,A 
< RESET> 

POKE &AC00.255 
LOAD “TIMEMAKE.BAS“ 

ERA “TIMEMAKE.BAS¬ 
SAVE “TIMEMAKE.BAS“ 

Kurze Erläuterung: Das Programm 
“TIMEMAKE“ wird geladen und als 
ASCIl-Datei gespeichert. Nach einem 
Reset und Eingabe von POKE 
&AC00.255 soll das Programm mit 
LOAD geladen werden. Jetzt sind alle 
überflüssigen Leerzeichen entfernt, 
lind das Programm kann abgespeichert 
werden. 

(Dirk Hansen/cd) 



für 464-6128 


100 '*** The Amstrad *** [1085] 

HO '*** Times Maker *** [1209] 

120 '*** written by *** [952] 

130 '*** Dirk Hansen *** [2242] 

140 'Vor dem Eintippen: Die Anleitung [2166] 

150 'genau durchlesen Ml [2012] 

160 IF PEEK(&AF00)=1 THEN POKE &AF00,0:snr [3316] 

=PEEK(&AF01):flag=l:GOTO 180 

170 snr=l [505] 


180 haelfteS(1)=" Obere":haelfte$(2)="Unte [4990] 
re":rotier$="Oben" 

190 rot$(0)="Oben ":rot$(1)="Links ":rot$ [4787] 

(2)="Unten ":rot$(3)="Rechts":rot=0 

200 inv$(0)=" ":inv$(1)="I":unter$(0)=" [3363] 

unterS(1)="U" 

210 MODE 1:BOEDER 0:INK 0,0:INK 1,26:PEN 1 [1976] 
220 IF HIMEM<16384 THEN snr=Z2:G0T0 240 [3050] 

230 MEMORY 16383:OPENOUT"d":MEMORY HIMEM-1 [9669] 

:CLOSEIN:LOAD"gl-464.bin":LOAD"g2-464.bin" 
:LOAD"t-464.bin":CALL &87E0:CALL &9FA0:CAL 
L &96B0:CLOSEIN 

240 MODE 2:PAPER 0:IF flag=0 THEN )SCREEN, [2215] 

0: CLS 

250 |SCREEN,1:flag=0 [1243] 

260 GOSUB 1830:PEN 1:CLS:|S.ON:[SCHRIFT,3, [17264] 

3:|TSPEED:|FORCE:a$="The Amstrad Times Mak 

er":LOCATE 7,2:|PRINT,@a$:|DIN:|FETT:)SCHR 

IFT,1,2:a$="Ein Anwenderprogramm zum erste 

llen von Zeitungsseiten":LOCATE 13,6:|PRIN 

T, @a$ 

270 |NORMAL:|UNT.:|SCHRIFT,2,2:a$="(c) 198 [14195] 
8 by Dirk Hansen":LOCATE 16,10:|PRINT,@a$: 

FOR n=0 TO 8 STEP 4:|RECHTECK,0+n,0+n,638- 
n*2,398-n*2,l:NEXT:|SCHRIFT,1,2:|NORMAL:a$ 

= "Zeitungsseite editieren":LOCATE 5,15:1 PR 
INT,@a$:a$="Basic":LOCATE 50,15:|PRINT,f?a$ 

280 a$="Diskettenverwaltung":LOCATE 5,20:| [11657] 
PRINT,§a$:a$="Ausdrucken":LOCATE 50,20:|PR 
INT,@a$:jRECHTECK,20,130,206,60:[RECHTECK, 
20,50,206,60:|RECHTECK,380,130,206,60:|REC 
HTECK,380,50,206,60:|GDISC,304,116,40:x=l: 


y=l:|XOR 

290 GOSUB 1840 

300 GOSUB 370 






[907] 

[978] 

310 IF INKEY(2)=0 
=2:GOTO 300 

AND 

y=l 

THEN 

GOSUB 

370 :y 

[1191] 

320 IF INKEY(0)=0 
=1 :GOTO 300 

AND 

y=2 

THEN 

GOSUB 

370 :y 

[2334] 

330 IF INKEY(8)=0 
= 1 :GOTO 300 

AND 

X=2 

THEN 

GOSUB 

370 :x 

[2801] 


Listing: NEWSPAPER 


340 IF INKEY(1)=0 AND X=1 THEN GOSUB 370:x [2981] 
=2:GOTO 300 

350 IF INKEY(9)=0 THEN WHILE INKEY$<>"":WE [2976] 
ND:GOTO 420 

360 GOTO 310 [510] 

370 IF X= 1 AND y=l THEN]RECHTECK,16,126,21 [4622] 
4,68,1:|RECHTECK,14,124,218,72 

380 IF X=1 AND y=2 THEN|RECHTECK,16,46,214 [4119] 
,68,1:|RECHTECK,14,44,218,72 

390 IF X=2 AND y=l THEN|RECHTECK,376,126,2 [5245] 
14,68,1:|RECHTECK,374,124,218,72 

400 IF X=2 AND y=2 THEN|RECHTECK,376,46, 21 [3303] 


4,68,1:|RECHTECK,374,44,218,72 

410 RETURN [555] 

420 IF x=l AND y=l THEN 460 [1101] 

430 IF X=1 AND y=2 THEN 1370 [1277] 

440 IF x=2 AND y=l THEN|T.OFF:CLS:END [1657] 

450 IF x=2 AND y=2 THEN RUN"timemake.cop [2398] 


460 ]CHAR.ROT,0 : GOSUB 1830:MODE 2:|S.ON:a$ [6488] 
="Zeitung editieren":|SCHRIFT,4,3:LOCATE 7 
,2:|PRINT,@a$ 

470 JDIN:|SCHRIFT,2,2:LOCATE 16,7:a$="Seit [16608] 
enh{lfte w{hlen ("+MID$(STR$(snr),2)+")":I 
PRINT,@a$:LOCATE 16,9:a$="Text eingeben":| 

PRINT,@a$:LOCATE 16,11:a$="Grafik einbauen 
": |PRINT,@a$:LOCATE 16,13:a$=''Text dazulad 
en":|PRINT,@a$ 

480 LOCATE 16,15:a$="Halbseite speichern": [7978] 

1 PRINT,@a$:LOCATE 16,17:a$ = "Halbseite lade 
n":|PRINT,@a$:LOCATE 16,19:a$="Zur}ck":|PR 
INT,@a$ 

490 jFORCE:|RECHTECK,80,70,456,246 [3064] 

500 y=l : GOSUB 1840 [969] 

510 LOCATE 12,5+(y*2):PRINT CHR$(243):LOCA [4556] 
TE 65,5+(y*2):PRINT CHR$(242) : FOR n=0 TO 1 
00:NEXT 

520 IF INKEY(0)=0 AND y>l THEN GOSUB 560:y [2883] 
=y-l:GOTO 510 

530 IF INKEY(2)=0 AND y<7 THEN GOSUB 560:y [1105] 
=y+l:GOTO 510 


540.IF INKEY(9)=0 THEN 580 [704] 

550 GOTO 520 [413] 

560 LOCATE 12,5+(y*2):PRINT" ":LOCATE 65,5 [2123] 
+(y*2):PRINT" " 

570 RETURN [555] 

580 IF y=5 THEN sav=l [1342] 

590 ON y GOSUB 610,680,1180,1880,1120,1120 [1616] 
,1170 

600 GOTO 460 [456] 

610 |SCHRIFT,2,3:LOCATE 1,23 [1914] 

620 IF snr=l THEN PRINT"Untere";ELSE PRINT [1944] 
"Obere"; 

630 PRINT" Seitenh{lfte w{hlen ? (J/N) [3384] 

640 IF INKEY(46)=0 THEN 670 [632] 

650 IF INKEY(45)<>0 THEN 640 [796] 
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660 IF snr=l THEN snr=2 ELSE snr=l t 10 ;* 5 ] 

670 WHILE INKEY$<>"":WEND:RETURN [2193] 

680 I SCHRIFT,1,1: |SCREEN,0 

690 NORMAL:|DIN:x=0:y=382:s2=8:s=16:|S.ON [8062] 
:I SCHRIFT,1,l:LOCATE 1,1:I INVERS:a$=" x-Gr 
je: 1 v-Gr|“e: 1 Rotierrichtung: Oben 
Obere Seitenh{lfte ":|PRINT, 

§a$:|INVERS 
700 GOSUB 1070 
710 IXOR:TAG 

720 MOVE x,y:PRINT CHR$(143); 

730 IF INKEY(0)=0 AND y+s<=382 THEN GOSUB 
1030:y=y+s:GOTO 720 

740 IF INKEY(2)=0 AND y-S>8 THEN GOSUB 103 
0 :y=y-s:GOTO 720 

750 IF INKEY(8)=0 AND X-s2>=0 THEN GOSUB 1 
030:x=x-s2:GOTO 720 

760 IF INKEY(1)=0 AND x+s2<640 THEN GOSUB 
1030:x=x+s2:GOTO 720 

770 IF INKEY(0)=32 AND y+16<=382 THEN GOSU 
B 1030:y=y+16:GOTO 720 

780 IF INKEY(2)=32 AND y-16>8 THEN GOSUB 1 
030:y=y-16:GOTO 720 

790 IF INKEY(8)=32 AND X-8>=0 THEN GOSUB 1 
030 :x=x-8:GOTO 720 

800 IF INKEY(1)=32 AND X+8<640 THEN GOSUB 
10 30:x=x+ 8:GOTO 720 

810 IF INKEY(0)=160 THEN|CHAR.ROT,0:rot=0: 

GOSUB 1070 

820 IF INKEY(8)=160 THEN|CHAR.ROT,1:rot=l: 

GOSUB 1070 

830 IF INKEY(2)=160 THEN|CHAR.ROT,2:rot=2: 

GOSUB 1070 

840 IF INKEY(1)=160 THEN|CHAR.ROT,3:rot=3: 

GOSUB 1070 

850 IF INKEY(79)=0 AND x-s2>=0 THEN GOSUB 
1030:x=X-s2:GOSUB 1020:GOTO 720 
860 IF INKEY(18)=0 AND y>s THEN FOR n=0 TO 
100 :NEXT:GOSUB 1030 :x=0:y=y-S:GOTO 720 
870 IF INKEY(1)=128 AND s2/8<40 THEN s2=s2 
+8:GOSUB 1070 

880 IF INKEY(8)=128 AND s2/8>l THEN S2=s2- 
8 :GOSUB 1070 

890 IF INKEY(2)=128 AND s/16>l THEN S=S-16 
:GOSUB 1070 

900 IF INKEY(0)=128 AND s/16<12 THEN s-s+1 
6 :GOSUB 1070 

910 IF INKEY(16)=128 THEN TAGOFF:LOCATE 1, 

2:PRINT CHR$(20):TAG:GOSUB 1030 
920 IF INKEY(18)=128 THEN GOSUB 1030:GOSUB 
1040:ISCREEN,l:GOTO 460 
930 IF INKEY(35)=128 THEN GOSUB 990:GOSUB 
1070 

940 IF INKEY(42)=128 THEN GOSUB 1010:GOSUB 
1070 

950 a$=INKEY$:IF a$<" "OR a$>CHR$(126)THEN 
730 

960 GOSUB 1030 :TAGOFF:LOCATE(X+8)/8,(414-y 
)/16:PRINT a$;:x=x+s2 

970 IF(X+S2)/8>80 THEN LOCATE l,l:|BELL:x= 

0:IF y-(s*16)>s*16 THEN y=y-s 
980 TAG:GOTO 720 

990 IF inv=0 THEN inv=l ELSE inv=0 
1000 I INVERS:RETURN 

1010 IF unter=0 THEN unter=l: |UNT. -.RETURN 
ELSE unter= 0 :I NORMAL:RETURN 

1020 TAGOFF:LOCATE(x+8)/8,(414-y)/I6:PRINT 
" ";:TAG:RETURN 

1030 MOVE x,y:PRINT CHRS(143);:RETURN 
1040 IT.OFF:TAGOFF:IF invers=l THEN|INVERS 
1050 LOCATE 1,1:PRINT SPACE$(80);:IF inver 
S=1 THEN|INVERS 
1060 RETURN 

1070 TAGOFF:IT.OFF:IF inv=0 THEN|INVERS 
1080 LOCATE U,1:PRINT MID$ (STR$ (S2/8 ) , 2 ) " 

":LOCATE 24,1:PRINT MID$(STR$(s/16),2)" " 

:LOCATE 44,1:PRINT rot$(rot):LOCATE 52,1:P 
RINT haelfte$(snr) 

1090 LOCATE 73,1:PRINT inv$(inv);unters(un 
ter) 

1100 IF inv=0 THEN|INVERS 

1110 |S.ON:TAG:|SCHRIFT,S2/8,s/16:|DIN:RET 
URN „ ., 

1120 I SCHRIFT,2,3:LOCATE 1,23:PRINT'Fllena 
me:":LOCATE 20,24:I SCHRIFT,1,2:GOSUB 1820: 
ein$=ein$+"#$&'-“#:*{}'?":XL=11:GOSUB 1650 
:IF eing$=""THEN RETURN 
LIsting: NEWSPAPER 


[829] 
[778] 
[2084] 
[3405] 

[2574] 

[3043] 

[ 2110 ] 

[3567] 

[3014] 

[3386] 

[2697 ] 

[3233] 

[2900] 

[4803] 

[2853] 

[3261] 

[2686] 

[2405] 

[2070] 

[1707] 

[2553] 

[4573] 

[4085] 

[1436] 

[1592] 

[1625] 

[3947] 

[4495] 

[970] 
[2670] 
[605] 
[5194] 

[4553] 

[2465] 

[3634] 

[3384] 

[555] 
[2423] 
[9248] 

[1926] 

[1770] 

[3107] 

[11429] 


1130 GOSUB 1850:IF kd=l THEN kd=0:jSCHRIFT [6779] 

, 2 , 3:LOCATE l,23:PRINT"Keine Disk im Laufw 

erk !!SPACES(10);:IWAITKEY:GOTO 1130 

1140 IF ds=l THEN ds= 0 :|SCHRIFT,2,3:LOCATE [8127] 

1,23:PRINT"Diskette ist schreibgeschuetzt 
!";IWAITKEY:GOTO 1130 

1150 IF sav=l THEN sav=0:SAVE eing$,b,&400 [4355] 

0,&4000 ELSE LOAD eing$,64000 

1160 RETURN [555] 

1170 MODE 2:ICHAR.ROT,0:GOTO 260 [1990] 

1180 ISCREEN,1:MODE 2:GOSUB 1850:IF kd=l T [7070] 
HEN kd=0: |S. ON:.| SCHRIFT, 2,2: PRINT"Keine Di 
sk im Laufwerk !":|SCHRIFT,1,1:|WAITKEY:GO 
TO 1180 

1190 WINDOW 3,80,1,25:1TSPEED:|T.OFF:CAT:P [9135] 
RINT"Screenname anwaehlen (nur 17K Screens 
in Mode 2 L!!)":WINDOW 1,80,1,25 
1200 GOSUB 1540:IF nix=l THEN|SCREEN,1:GOT [3333] 

O 460 ELSE LOAD g$,&C000:CLOSEIN 

1210 XL=50:YL=50:X=295:Y=175:|XOR [2868] 

1220 GOSUB 1340:GOSUB 1340 [1967] 

1230 y=y+(2 AND INKEY(0)=0 AND Y+2+yl<400) [3771] 
-(2 AND INKEY(2)=0 AND Y-2>0) 

1240 x=X+(2 AND INKEY(1)=0 AND X+2+XL<640) [3084] 
-(2 AND INKEY(8)=0 AND X-2>0) 

1250 yl=yl+(2 AND INKEY(0)=32 AND y+yl<400 [3605] 

)-(2 AND INKEY(2)=32 AND yl>0) 

1260 xl=xl+(2 AND INKEY(1)=32 AND y+yl<640 [3836] 

)-(2 AND INKEY(8)=32 AND xl>0) 

1270 IF INKEY(9)<>0 THEN 1220 [535] 

1280 ISCREEN,0:xx=x:yy=y:|GPEN,1:|XOR:WHIL [8955] 

E INKEY{9)=0:WEND:LOCATE 1,1:|INVERS:PRINT 
"ENTER=Menue, Cursor-Tasten=Steuerung, TAB 
=Grafik-Picture"SPC(24);:I INVERS 

1290 GOSUB 1350-.GOSUB 1350 [1795] 

1300 yy=yy+(2 AND INKEY(0)=0 AND yy<400)-( [9527] 

2 AND INKEY(2)=0 AND yy-yl>0):xx=xx+(2 AND 
INKEY(1)=0 AND xx+xl<640)-(2 AND INKEY(8) 

= 0 AND XX> 0) 

1310 IF INKEY(18)=0 THENISCREEN,1:GOTO 460 [1587] 
1320 IF INKEY(68)=0 THEN|SCREEN,1:GOTO 121 [4529] 

0 ELSE IF INKEY(9)<>0 THEN 1290 

1330 | FORCE: |COPYSCR,x,y,xl,yl,xx,yy-yl, 1: [3661] 

|XOR:GOTO 1290 

1340 RECHTECK,X,Y,XL,YL,l:RETURN [2020] 

1350 RECHTECK,XX,YY-YL,XL,YL,1:RETURN [3299] 

1360 END [HO] 

1370 MODE 2:WINDOW 1,60,1,25:PAPER 1:PEN 0 [3496] 
:CLS 

1380 GOSUB 1850 [ 849 ] 

1390 IF kd=l THEN kd=0:IS.ON:I SCHRIFT,2,2: [5564] 
PRlNT"Keine Disk im Laufwerk !":|SCHRIFT,1 
,1:IWAITKEY:GOTO 1370 

1400 IF ds=l THEN ds=0:|S.ON:|SCHRIFT,2,2: [5995] 
PRINT"Disk ist schreibgeschuetzt !":|SCHRI 
FT,1,1:|WAITKEY:GOTO 1370 

1410 WINDOW 3,61,1,25:|TSPEED:|T.OFF:CAT:P [12361] 
APER 0 : PEN 1-.WINDOW 63,80,1,25 : PAPER 0:PEN 
1: IS.ON:I SCHRIFT,1,3:LOCATE 3,1:PRINT"Dis 
kverwaltung":|SCHRIFT,2,2:ym=l:DATA Men],E 
rase,Rename,Drive,User 

1420 I DIN:RESTORE 1370:FOR n=l TO 5:LOCATE [6534] 
2,n*2+4:READ a$:PRINT a$:NEXT:y=l:WINDOW 
61 , 80 , 1 ,25:y=ym 

1430 LOCATE 1,y*2+4:PRINT CHR$(243):FOR n= [3382] 

0 TO 50:NEXT 

1440 IF INKEY(0)=0 AND y>l THEN GOSUB 1470 [2385] 
:y=y-l:GOTO 1430 

1450 IF INKEY(2)=0 AND y<9 THEN GOSUB 1470 [2134] 
:y=y+l:GOTO 1430 

1460 IF INKEY(9)=0 THEN 1480 ELSE 1440 [1225] 

1470 LOCATE 1,y*2+4:PRINT" ":RETURN [1779] 

1480 IF y=l THEN flag=l:GOTO 240 [1777] 

1490 WINDOW 1,60,1,25:|T.OFF:|NORMAL:|ASCI [4315] 
I:I INVERS:ym=y 
1500 ON y-1 GOSUB 1750,1770,1790 [1371] 

1510 CLS:WINDOW 3,61,1,25 t 1175 ] 

1520 CAT [9 6] 

1530 WINDOW 63,80,1,25:|S.ON:|SCHRIFT,2,2: [2915] 

I INVERS:|S.ON:GOTO 1420 

1540 x=2:y=4:g$=SPACE$(13):nix=0:t$=SPACE$ [2959] 

1550 LOCATE x,y:PRINT CHR$(243);:|READTXT, [2378] 

1560 IF^INKEY(0)=0 AND y>4 THEN GOSUB 1710 [2716] 
:y=y-l:GOTO 1550 
Listlng: NEWSPAPER 
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1570 IP INKEY(2)=0 THEN LOCATE x+l,y+l:|RE [6141] 
ADTXT,@t$:IF t$<>" "THEN GOSUB 1710:y=y+l: 

GOTO 1550 

1580 IF INKEY(8)=0 AND x>2 THEN GOSUB 1710 [2550] 
:x=x-20:GOTO 1550 

1590 IF INKEY(1)=0 AND x<42 THEN LOCATE X+ [5114] 
21,y:|READTXT,@t$:IF t$<>" "THEN GOSUB 171 
0:x=x+20:GOTO 1550 


1600 IF INKEY(9)=0 THEN 1630 [605] 

1610 IF INKEY(18)=0 THEN nix=l:RETURN [1955] 

1620 GOTO 1560 [387] 

1630 WHILE INKEY$o"":WEND:flag=0:IF RIGHT [3811] 
$(g$,1)="*"THEN flag=l 

1640 RETURN [555] 

1650 X=POS(#0):y=VPOS(#0):lang=0:WHILE INK [3120] 
EY$<>"":WEND:eing$="" 

1660 LOCATE x,y:PRINT CHR$(143) [1081] 

1670 a$=UPPER$(INKEY$):IF a$=""THEN 1670 [1826] 

1680 IF INSTR(ein$,a$)=0 THEN 1670 [1690] 

1690 IF a$=CHR$(127)AND lang>0 THEN LOCATE [4934] 
x,y:PRINT" ":x=x-l:eing$=LEFT$(eing$,LEN( 
eing$)-l):lang=lang-l:GOTO 1660 

1700 IF a$=CHR$(127)THEN 1670 ELSE 1720 [1011] 

1710 LOCATE x,y:PRINT" ":RETURN [1051] 


1720 IF a$=CHR$(13)THEN LOCATE x,y:PRINT" [1864] 

":RETURN 

1730 IF lang>XL THEN 1660 ELSE lang=lang+l [3828] 

:LOCATE x,y:PRINT a$:x=x+l:eing$=eing$+a$: 

GOTO 1660 

1740 |WAITKEY:RETURN [1457] 

1750 GOSUB 1540:IF nix=l THEN RETURN ELSE [16834] 

IF flag=l THEN | INVERS : FOR n=l TO 3-.LOCATE 
1,n+ll:PRINT SPACE$(60);:NEXT:LOCATE 2,13: 
PRINT"Diese Datei ist geschuetzt und kann 
nicht geloescht werden":|INVERS:|WAITKEY:R 
ETURN 

1760 |ERA,@g$:RETURN [1802] 

1770 GOSUB 1540:IF nix=l THEN RETURN ELSE [15510] 

IF flag=l THEN|INVERS:FOR n=l TO 3:LOCATE 
l,n+ll:PRINT SPACES(60);:NEXT:LOCATE 2,13: 
PRINT"Diese Datei ist geschuetzt und kann 
nicht umbenannt werden":|INVERS:|WAITKEY:R 
ETURN 

1780 GOSUB 1820:XL=11:LOCATE X+1,Y:PRINT S [4658] 
PC(12):LOCATE X+1,Y:GOSUB 1650:|REN,geingS 
,§g$:RETURN 

1790 LOCATE 2,2:PRINT"Neues Laufwerk ? (A [7699] 
oder B) : :ein$="AB"+CHR$(127)+CHR$(13): 

XL=l:GOSUB 1650:jDRIVE,@a$:RETURN 

1800 LOCATE 2,2:PRINT"Neuer User ? (0-229) [9647] 

: ";:ein$="0123456789"+CHR$(127)+CHR$(13) 

:XL=2:GOSUB 1650:eing=VAL(eing$):IF eing>2 
29 THEN eing=229 

1810 POKE SA70l,eing:RETURN'Fuer Vortex-La [4086] 
ufwerk siehe Anleitung 

1820 ein $ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234 [5714] 
56789."+CHR$(127)+CHRS(13):RETURN'Standard 
einstellung 

1830 INK 0,0:INK 1,0:BORDER 0:RETURN [1421] 

1840 INK 0,13:BORDER 1:RETURN [1429] 

1850 OUT SFA7E,1:FOR n=l TO 1000:NEXT:OUT [13221] 
5FB7F, 4 :OUT SFB7F,-PEEK(SA700)+2 :a=INP(5FB 
7F):OUT SFA7E,0:b=a AND 32 1 Vortex-Floppy: 

Die naechsten 2 Zeilen nicht abtippen, und 
in dieser ein RETURN setzen... 

1860 IF b=0 THEN kd=l:RETURN'...Oder eine [7436] 
eigene Routine einbauen. Parameter: kd=l:K 
eine Disk in Floppy ds=l:Disk schreibgesc 
huetzt 

1870 C=a AND 64:IF c=64 THEN ds=l:RETURN E [3558] 
LSE RETURN 

1880 POKE 5COOO,snr:RUN"TIMEMAKE.TXT [2367] 

1890 1 [117] 

1900 'SAVE "TIMEMAKE" 10K 2000 Bytes fre [2317] 

e nach dem starten 


100 

'Dieses Programm dient dazu, 

[2156] 

110 

'Zwei DIN A5 

Hardcopys von 

[2521 ] 

120 

'den beiden 

Zeitungshaelften 

[1564] 

130 

'zu machen. 

Es wird von 

[1470] 

140 

'TIMEMAKE.BAS nachgeladen 

[1375] 

150 



[117] 

160 

'-> Druckerpapier zeichnen <- 

[2511] 

Lisling 

NEWSPAPER 




170 ' [117] 

180 |T.OFF:|TSPEED:MODE 2 [2330] 

190 FOR n=0 TO 400 STEP 8:PLOT 0,n:DRAWR 8 [7004] 
0,0,1:PLOT 640,n:DRAWR-80,0:NEXT:FOR n=0 T 
O 80 STEP 8:PLOT n,0:DRAWR 0,400:PLOT 640- 
n,0:DRAWR 0,400:NEXT 

200 WINDOW 8,72,1,25:CLS:WINDOW 10,70,1,25 [5559] 
: | RECHTECK,56,0,12,400:|RECHTECK,564,0,14 , 

400:|FORCE 

210 FOR n=0 TO 400 STEP 16:|GDISC,62,n,2:| [3500] 


GDISC,570,n,2:NEXT 

220 ' [117] 

230 '-> Directory zeigen und Eingabe <- [1346] 

240 '-> der beiden Dateinamen a$,b$ <- [1916] 

250 ' [117] 


260 CLS:LOCATE 8,2:|S.ON:|SCHRIFT,6,2:PRIN [9148] 
T"Hardcopy":|T.OFF:PRINT:CAT:INPUT"Obere 
Seitenhaelfte : ",a$:IF a$=""THEN 260 
270 INPUT"Untere Seitenhaelfte : ",b$:IF b [4564] 
$=""THEN 260 

280 CLS:LOCATE 2,2:PRINT"Bitte neue Seite [7020] 
einstellen und Papier um 5mm zurueck drehe 
n. Bitte warten !" 


290 GOSUB 590 'Hardcopy poken [1910] 

300 ' [117] 

310 'ab jetzt sind die Profi-RSX Befehle [3217] 
320 'ausser Kraft gesetzt... [109'9] 

330 ' [117] 

340 GOSUB 440:GOSUB 400 'Obere Haelfte dru [1991] 
cken 

350 GOSUB 450:GOSUB 400 'Untere Haelfte dr [2657] 
ucken 

360 CALL 0 'Nach der Hardcopy RESET [1468] 

370 ' [117] 

380 'CALL oder RSX-Befehl fuer Ausdrucken [3172] 
(ggf. Aendern) 

390 ' [117] 

400 FOR i=0 TO 31:tbyte(i)=PEEK(5A000+i):N [5516] 
EXT:CALL SA020:FOR i=0 TO 31:POKE SAOOO+i, 
tbyte(i):NEXT:RETURN 

410 ' [117] 

420 'Laden der Screens (ggf. Aendern: z.B. [4771] 
an 5c000 und Mode 2 weglassen) 

430 ’ [117] 


440 LOAD a$,56000:MODE 2:RETURN 'Obere Hae [1939] 
lfte 

450 LOAD b$,56000:MODE 2:RETURN 'Untere Ha [3357] 


elfte 

460 ' [117] 

470 ************************** [894] 

480 '* Hardcopy fuer NLQ 401 * [2133] 

490 '************************* [894] 

500 ' [117] 

510 ' [117] 

520 ' [117] 

530 'kann durch eine andere (DINA5) [1509] 

540 'Hardcopy ersetzt werden. [1222] 

550 'Speicherbereich egal, da die [1717] 

560 'RSX-Befehle nicht mehr benutzt [2577] 

570 'werden und ueberschrieben werden [3199] 

580 ' [H7] 

590 DIM tbyte(32) [350] 

600 a=5A000:e=5AlD0-l:zb=670:e=e+l [968] 


610 FOR i =a TO e : READ d$:IF LEFT$(d$,1)=" [2095] 
5" THEN flag =1 

620 IF (flag AND psoVAL(dS)) THEN PRINT"F [4256] 
ehler in Zeile "zb:END 

630 IF (flag AND i=e) THEN RETURN 'Ende Un [2734] 
terprogramm mit RETURN 

640 IF flag THEN i=i-l:zb=zb+10:ps=0:d$="" [3385] 
:flag = 0:GOTO 660 

650 d$="&"+d$:POKE i,VAL(d$):ps=ps+VAL(d$) [1629] 


660 IF i < e THEN NEXT i [808] 

670 DATA 00,00,55,55,44,11,55,41,&0195 [1120] 

680 DATA 01,00,10,01,04,01,00,14,5002B [1095] 

690 DATA 04,11,05,50,15,00,11,00,&0090 [1771] 

700 DATA 55,44,51,14,45,54,54,55,5,0240 [1260] 

710 DATA 21,00,60,11,00,C0,01,00,50153 [1837] 

720 DATA 40,ED,B0,ED,73,20,Al,CD,S04CB [1505] 

730 DATA 11,BC,EE,03,3D,47,D6,01,50319 [1756] 

740 DATA 78,17,32,01,Al,3E,1B,CD,50289 [1277] 

750 DATA 08,Al,3E,33,CD,08,Al,3E,S02CE [1200] 

760 DATA 12,CD,08, Al ,21,8E,01,22,S025A [1492] 

770 DATA 03,Al,3E,80,32,02,Al,11,50248 [2502] 

780 DATA 00,00,01,7E,03,CD,85,A0,50274 [1928] 
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790 DATA 01,42,00,CD,85,A0,3E,0D,&0280 [1712] 

800 DATA CD,08,Al,3E,OA,CD,08,Al,&0334 [1738] 

810 DATA 2A,03,Al,11,06,00,B7,ED,&0289 [1645] 

820 DATA 52,30,D4,3E,1B,CD,08,A1,&0325 [1305] 

830 DATA 3E,40,C3,08,A1,3E,1B,CD,&0310 [1403] 

840 DATA 08,Al,3E,4C,CD,08,A1,79,&0322 [1402] 

850 DATA CD,08,Al,78,CD,08,A1,C5,&0429 [1591] 

860 DATA 21,05,Al,E5,2A,03,A1,06,&0280 [1254] 

870 DATA 03,C5,E5,D5,CD,FO,BB,Dl,&05CB [1704] 

880 DATA E1,C1,2B,2B,E3,77,23,E3,&0458 [944] 

890 DATA 10,EF,E1,3A,01,Ä1,6F,26,&0351 [1419] 

900 DATA 00,87,85,19,E3,E5,47,1E,&0352 [1389] 

910 DATA 00,3A,02,Al,OF,32,02,Al,S01C1 [1478] 

920 DATA 57,E6,55,28,2B,C5,06,03,&02B3 [2018] 

930 DATA 21,05,A1,7E,23,E5,21,00,&026E [1855] 

940 DATA AO,87,85,6F,30,01,23,C5,&0334 [2221] 

950 DATA 06,02,7E,A2,28,01,37,CB,&0253 [583] 

960 DATA 13,23,10,F6,C1,E1,10,E3,&03D1 [1992] 

970 DATA CI,7B,CD,08,A1,E1,2B,E5,&04A3 [2608] 

980 DATA 10,C5,C1,D1,78,B1,C8,18,&0470 [1994] 

990 DATA 96,02,04,76,01,00,00,00,&0113 [1710] 

1000 DATA E5,D5,C5,CD,2B,BD,38,12,&047E [2199] 

1010 DATA 47,3E,42,C5,CD,IE,BB,CI,&03F3 [1434] 

1020 DATA 78,28,FO,ED,7B,20,Al,C9,&0482 [1091] 

1030 DATA F8,BF,CI,Dl,El,C9,00,00,&04F3 [2148] 

1040 DATA 00,00,00,00,00,00,00,00,&0000 [1216] 

1050 DATA 21,00,60,11,00,CO,01,00,&0153 [1837] 

1060 DATA 40,ED,BO,ED,73,89,Al,3E,&04A5 [1318] 

1070 DATA 1B,CD,72,Al,3E,33,CD,72,&03AB [1867] 

1080 DATA Al,3E,15,CD,72,A1,21,8E,&0383 [2195] 

1090 DATA 01,3E,09,CD,72,A1,11,00,&0239 [1004] 

1100 DATA 00,CD,8F,Al,CD,8F,A1,3E,&0438 [1416] 

1110 DATA OD,CD,72,Al,3E,0A,CD,72,&0374 [2415] 

1120 DATA Al,01,OE,00,B7,ED,42,30,&02C6 [1779] 

1130 DATA EO,C9,C5,D5,E5,CD,2B,BD,&05DD [1172] 

1140 DATA 38,11,F5,3E,42,CD,1E,BB,&0364 [1877] 

1150 DATA CI,78,28,Fl,ED,7B,89,A1,&04E4 [1219] 

1160 DATA C9,00,00,E1,D1,C1,C9,3E,&0443 [1656] 

1170 DATA 1B,CD,72,Al,3E,4C,CD,72,&03C4 [2163] 

1180 DATA A1,3E,40,CD,72,A1,3E,01,&033E [1176] 

1190 DATA CD,72,A1,01,40,01,C5,E5,&03CC [1443] 

1200 DATA 01,00,07,E5,D5,C5,CD,FO,&0444 [2522] 

1210 DATA BB,CI,Dl,El,D6,01,3F,CB, & 050F [1235] 

1220 DATA 11,2B,2B,10,EE,E1,79,CD,&038C [1639] 

1230 DATA 72,Al,13,CI,OB,78,Bl,20,&033B [903] 

1240 DATA DD,C9,00,00,00,00,00,00,&01A6 [1659] 

1250 ' [117] 

1260 'SAVE "TIMEMAKE.COP" 4K (Wird von [4763] 
TIMEMAKE.BAS nachgeladen) 


100 'Dieses Nachladeprogramm dient dazu, [3791] 

110 'Context-Dateien in die Zeitung ein- [2132] 

120 'zubinden. [1421] 

130 ' [117] 

140 DIM t$(25):|SCHRIFT,1,1 [1514] 

150 snr=PEEK(&C000) [757] 

160 |SCREEN,1:MODE 2:|T.OFF:|TSPEED:|DIN [2915] 

170 CAT:WHILE INKEY$<>"":WEND:LOCATE 1,25: [5571] 

INPUT"Textdateiname (ENTER=Men)) : ",a$ 

180 IF a$="" THEN 610 [809] 

190 IF LEN(a$)>12 THEN 160 [1484] 

200 MODE 2:|S.ON [1496] 

210 GOSUB 580 [960] 

220 |DIN:OPENIN a$ [1408] 

230 IF VPOS(#0)=25 OR EOF=-l THEN 260 [2320] 

240 LINE INPUT#9,a$:IF a$=""THEN PRINT ELS [3727] 

E PRINT a$; 

250 GOTO 230 [423] 

260 CLOSEIN [752] 

270 x=l:y=2:xr=10:yr=5 [1740] 

280 GOSUB 560 [885] 


290 IF INKEY(0)=0 AND y>2 THEN GOSUB 560:y [2797] 
=y-l:GOTO 280 

300 IF INKEY(2)=0 AND y+yr<25 THEN GOSUB 5 [3263] 
60:y=y+l:GOTO 280 

310 IF INKEY(8)=0 AND X>1 THEN GOSUB 560:x [3236] 
=x-1:GOTO 280 

320.IF INKEY(1)=0 AND x+xr<80 THEN GOSUB 5 [1622] 
60:x=x+l:GOTO 280 

330 IF INKEY(0) = 32 AND yr>0 THEN GOSUB 560 [2575] 
:yr=yr-l:GOTO 280 

340 IF INKEY(2)=32 AND y+yr<25 THEN GOSUB [2333] 
560:yr=yr+l:GOTO 280 
Listing: NEWSPAPER 


350 IF INKEY(8)=32 AND xr>0 THEN GOSUB 560 [2860] 
:xr=xr-l:GOTO 280 

360 IF INKEY( 1)=32 AND X+xr<80 THEN GOSUB [1979] 
560 :xr=xr+l : GOTO 280 

370 IF INKEY(68)=0 THEN 160 [1287] 

380 IF INKEY(18)=128 THEN 610 [1374] 

390 IF INKEY(9)<>0 THEN 290 [626] 

400 |DIN : nr=l:GOSUB 560:FOR n=y TO y+yr:t$ [10638] 

(nr)=SPACE$(xr+l):LOCATE x,n:|READTXT, @t$ ( 
nr) : nr=nr+l:NEXT :| SCREEN,0:WHILE INKEY$<>" 

":WEND:|S.ON:LOCATE l,l:GOSUB 590:|T.OFF:| 

ASCII 

410 xx=x:yy=y:xxr=xr:yyr=yr [2223] 

420 GOSUB 570 [891] 

430 IF INKEY(0)=0 AND yy>2 THEN GOSUB 570: [3033] 

yy=yy-l:GOTO 420 

440 IF INKEY(2)=0 AND yy+yyr<25 THEN GOSUB [2777] 
570:yy=yy+l:GOTO 420 

450 IF INKEY(8)=0 AND XX>1 THEN GOSUB 570: [3279] 
XX=XX-1:GOTO 420 

460 IF INKEY(1)=0 AND xx+xxr<80 THEN GOSUB [2878] 
570:xx=xx+l:GOTO 420 

470 IF INKEY(0)=32 AND yyr>0- THEN GOSUB 57 [2674] 

0:yyr=yyr-l:GOTO 420 

480 IF INKEY(2)=32 AND yy+yyr<25 THEN GOSU [3174] 

B 570:yyr=yyr+1:GOTO 420 

490 IF INKEY(8)=32 AND xxr>0 THEN GOSUB 57 [3120] 

0:xxr=xxr-l:GOTO 420 

500 IF INKEY(1)=32 AND xx+xxr<80 THEN GOSU [2934] 
B 570:xxr=xxr+l:GOTO 420 


510 IF INKEY(68)=0 THEN 160 [1287] 

520 IF INKEY(18)=128 THEN 610 [1374] 

530 IF INKEY(9)<>0 THEN 430 [503] 

540 GOSUB 570:nr=l:|DIN:FOR n=yy TO yy+yyr [6256] 
•.LOCATE XX, n: I PRINT, 0t$ (nr):nr=nr+l:NEXT: I 
ASCII 

550 |SCREEN,!:GOTO 270 [1249] 


560 WINDOW#i,x,x+xr,y,y+yr:|INVERT,1,255 :R [3209] 
ETURN 

570'WINDOW#l,xx,xx+xxr,yy,yy+yyr:|INVERT,1 [3948] 
,255:RETURN 

580 |INVERS:PRINT"Cursor:Bewegen SHIFT+Cu [8768] 
rsor:Gr|"e COPY:]bernehmen TAB:Laden CT 
RL+ENTER: Quit"; : | INVERS : |T.OFF:|TSPEED:RE 
TURN 

590 |INVERS:PRINT"Cursor:Bewegen COPY:Kop [7887] 
ieren TAB:Laden CTRL+ENTER: Quit";SPC(22 
); :| INVERS : |T.OFF : |TSPEED : RETURN 

600 |SCREEN,0:LOCATE 1,1:PRINT SPACE$(80); [3837] 
: | SCREEN,1 : CLS : RETURN 

610 GOSUB 600 : POKE &AF00 ,1: POKE &AF01,snr: [3040] 
RUN" ! timemake" 

620 ' [117] 

630 'SAVE "TIMEMAKE.TXT" 3K (Wird von [4081] 

TIMEMAKE.BAS nachgeladen) 


1 REM Version fuer 464 [1047] 

10 MEMORY &9F9F « [488] 

20 FOR adr=&9FA0 TO &A5FF STEP 8 [1279] 

30 FOR i=adr TO adr+ 7 [1011] 

40 READ b$ [315] 

50 byte=VAL("&"+b$) [465] 

60 POKE i,byte [294] 

70 NEXT i [375] 

80 NEXT adr [547] 

90 SAVE"gl-464.bin",b,&9FA0,&65F [1575] 

100 END [HO] 

110 DATA 01,B3,9F,21,AF,9F,CD,Dl [2107] 

120 DATA BC,3E,C9,32,A0,9F,C9,00 [1017] 

130 DATA 00,00,00,E5,9F,C3,62,A0 [1431] 

140 DATA C3,1B,Al,C3,A9,A3,C3,C0 [1875] 

150 DATA A3,C3,B2,A1,C3,D7,A3,C3 [898] 

160 DATA C4,A2,C3,B6,A2,C3,0F,A5 [701] 

170 DATA C3,9C,A5,C3,ED,A5,C3,F1 [1246] 

180 DATA A5,C3,F5,A5,C3,F9,A5,C3 [1328] 

190 DATA A8,A0,C3,DD,A5,51,55,41 [1213] 

200 DATA 44,52,41,D4,41,2E,51,55 [1838] 

210 DATA 41,44,52,41,D4,52,45,43 [1510] 

220 DATA 48,54,45,43,CB,41,2E,52 [1154] 

230 DATA 45,43,48,54,45,43,CB,43 [1386] 

240 DATA 49,52,43,4C,C5,47,44,49 [998] 

250 DATA 53,C3,45,4C,4C,49,50,53 [872] 

260 DATA C5,41,2E,45,4C,4C,49,50 [1390] 
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270 DATA 53,05,56,49,45,40,45,43 [380] 

280 DATA CB,41,2E,56,49,45,4C,45 [731] 

290 DATA 43,CB,46,4F,52,43,C5,58 [468] 

300 DATA 4F,D2,4F,D2,41,4E,C4,49 [1364] 

310 DATA 4E,56,45,52,D4,41,2E,56 [1627] 

320 DATA 2E,47,45,4E,41,D5,00,00 [1650] 

330 DATA 00,00,00,00,00,00,AF,95 [1114] 

340 DATA 6F,9C,95,BC,67,37,CO,FE [1533] 

350 DATA 01,C9,B7,C8,FE,05,DO,21 [1875] 

360 DATA 01,00,54,50,CD,3C,A4,D5 [1160] 

370 DATA E5,21,02,00,CD,D2,A4,D5 [1535] 

380 DATA ED,5B,09,A5,21,00,00,CD [1347] 

390 DATA F9,BB,E1,E5,11,00,00,CD [1543] 

400 DATA F9,BB,ED,5B,09,A5,EB,CD [1804] 

410 DATA 56,A0,EB,21,00,00,CD,F9 [1631] 

420 DATA BB,El,CD,56,AO,11,00,00 [1135] 

430 DATA CD,F9,BB,El,Dl,C3,C9,BB [1590] 

440 DATA B7,28,08,FE,02,DD,7E,00 [1543] 

450 DATA 28,58,DO,F5,CD,11,BC,OE [1356] 

460 DATA CO,38,06,OE,FO,28,02,OE [1225] 

470 DATA FF,Fl,CD,B4,BB,CD,69,BB [1410] 

480 DATA CD,06,B9,7B,95,30,87,87 [1652] 

490 DATA 87,5F,7A,94,30,57,CD,64 [1116] 

500 DATA OB,AF,82,10,FD,57,E5,7A [1668] 

510 DATA CD,10,Al,30,0B,42,7E,A9 [1076] 

520 DATA 77,CD,F9,OB,10,F8,18,12 [1679] 

530 DATA C5,D5,7E,A9,77,15,28,08 [1504] 

540 DATA 42,23,7E,A9,77,23,10,FA [933] 

550 DATA Dl,CI,El,CD,13,0C,1D,20 [1791] 

560 DATA D5,C9,4F,DD,7E,02,18,B2 [1043] 

570 DATA 3D,85,DO,7C,E6,07,EE,07 [1659] 

580 DATA C0,37,C9,B7,C8,FE,O5,DO [H74] 

590 DATA 21,01,00,54,5C,CD,3C,A4 [911] 

600 DATA D5,E5,21,02,00,18,3B,CD [1312] 

610 DATA D5,BB,D5,E5,CD,D8,BB,D5 [668] 

620 DATA E5,21,02,00,CD,D2,A4,D5 [1535] 

630 DATA CD,CC,BB,ED,4B,09,A5,EB [1443] 

640 DATA 09,EB,CD,CF,BB,CD,CC,BB [1254] 

650 DATA CI,E5,09,EB,El,CD,D2,BB [1270] 

660 DATA CD,DB,BB,El,Dl,CD,D2,BB [1379] 

670 DATA El,Dl,CD,CF,BB,Dl,El,C3 [1562] 

680 DATA C9,BB,CD,D2,A4,21,FF,FF [869] 

690 DATA ED,52,ED,5B,09,A5,44,4D [656] 

700 DATA C5,D5,ED,62,CD,F9,BB,21 [516] 

710 DATA 02,00,54,5C,CD,C3,BB,D1 [1389] 

720 DATA C1,03,03,97,B8,20,03,C3 [1528] 

730 DATA A3,AO,C5,D5,EB,CD,56,AO [1008] 

740 DATA EB,21,01,00,CD,F9,BB,21 [1584] 

750 DATA 02,00,54,5C,CD,C3,BB,Dl [1389] 

760 DATA C1,03,03,97,B8,20,C9,C3 [1205] 

770 DATA A3,AO,B7,C8,FE,05,DO,21 [1385] 

780 DATA 01,00,54,5C,CD,3C,A4,D5 [1160] 

790 DATA E5,21,02,00,CD,D2,A4,CD [1350] 

800 DATA 06,B9,F5,D5,ED,62,CD,DC [1622] 

810 DATA BD,El,E5,CD,56,AO,EB,21 [1154] 

820 DATA 00,00,CD,DC,BD,21,00,00 [804] 

830 DATA 11,2E,A4,CD,29,2E,E1,E5 [1794] 

840 DATA 11,29,A4,CD,29,2E,21,33 [953] 

850 DATA A4,CD,A3,31,El,29,11,1F [1004] 

860 DATA A4,E5,CD,29,2E,11,33,A4 [968] 

870 DATA EB,CD,9E,34,21,FF,FF,Dl [1197] 

880 DATA B7,ED,52,44,4D,C5,CD,98 [1374] 

890 DATA A2,18,07,C5,11,1F,A4,CD [1506] 

900 DATA AD,A2,E5,21,29,A4,11,1F [1094] 

910 DATA A4,01,05,00,ED,BO,21,1F [1456] 

920 DATA A4,11,33,A4,CD,15,34,EB [1558] 

930 DATA 21,2E,A4,CD,3F,33,CD,66 [1513] 

940 DATA 2E,Dl,CD,67,A2,11,1F,A4 [2104] 

950 DATA 21,2E,A4,CD,3F,33,CD,66 [1513] 

960 DATA 2E,E5,CD,98,A2,EB,El,CD [945] 

970 DATA 67,A2,CI,21,08,00,09,44 [767] 

980 DATA 4D,97,B8,20,B6,CD,15,A4 [1912] 

990 DATA Fl,CD,0C,B9,C3,A3,A0,44 [1712] 

1000 DATA 4D,CD,56,A0,E5,E5,62,6B [1687] 

1010 DATA CD,56,AO,Fl,D5,F5,E5,C5 [1480] 

1020 DATA E5,C5,D5,D5,F5,D5,C5,E5 [1599] 

1030 DATA F5,E5,C5,06,04,78,ED,47 [1182] 

1040 DATA Dl,El,CD,DC,BD,Dl,El,CD [1935] 

1050 DATA DC,BD,ED,57,47,10,EE,C9 [1052] 

1060 DATA 21,2E,A4,11,1F,A4,01,05 [1541] 

1070 DATA 00,ED,BO,21,1F,A4,11,33 [790] 

1080 DATA A4,CD,15,34,EB,21,29,A4 [1384] 

1090 DATA CD,37,33,C3,66,2E,CD,F2 [1491] 

1100 DATA A3,18,09,EB,B7,ED,52,37 [777] 

1110 DATA EO,F6,FF,C9,FE,02,D8,FE [1773] 


Llsting: NEWSPAPER 


1120 DATA 06,DO,11,00,00,21,02,01 [1038] 

1130 DATA CD,3C,A4,D5,E5,21,03,01 [1507] 

1140 DATA CD,D2,A4,CD,06,B9,F5,ED [1923] 

1150 DATA 53,3A,A4,01,33,A4,D5,2A [1043] 

1160 DATA 09,A5,CD,BB,A2,F2,F9,A2 [1704] 

1170 DATA 2A,09,A5,22,3A,A4,01,2E [1590] 

1180 DATA A4,Dl,EB,11,33,A4,CD,29 [922] 

1190 DATA 2E,2A,09,A5,11,2E,A4,CD [1080] 

1200 DATA 29,2E,3E,01,CD,AE,31,21 [1249] 

1210 DATA 5A,00,11,1A,A4,CD,29,2E [1290] 

1220 DATA 50,59,CD,9E,34,ED,5B,3A [1318] 

1230 DATA A4,21,FF,FF,ED,52,44,4D [1396] 

1240 DATA ED,62,22,24,A4,22,26,A4 [1282] 

1250 DATA 22,27,A4,21,24,A4,C5,E5 [859] 

1260 DATA EB,21,29,A4,CD,18,2E,21 [1414] 

1270 DATA 1F,A4,CD,18,2E,CD,BC,31 [1765] 

1280 DATA 11,33,A4,CD,15,34,CD,66 [1734] 

1290 DATA 2E,FC,56,AO,E5,21,29,A4 [706] 

1300 DATA CD,B2,31,11,2E,A4,CD,15 [758] 

1310 DATA 34,CD,66,2E,FC,56,AO,EB [1566] 

1320 DATA El,Cp,83,A3,El,11,1A,A4 [858] 

1330 DATA CD,3F,33,CI,03,97,B8,20 [1314] 

1340 DATA BD,CD,15,A4,Fl,CD,OC,B9 [613] 

1350 DATA C3,A3,AO,44,4D,CD,56,AO [1099] 

1360 DATA E5,E5,62,6B,CD,56,AO,Fl [1641] 

1370 DATA D5,F5,E5,C5,E5,60,69,CD [943] 

1380 DATA DC,BD,Dl,El,CD,DC,BD,Dl [820] 

1390 DATA El,CD,DC,BD,Dl,El,C3,DC [1897] 

1400 DATA BD,FE,02,D8,FE,06,DO,11 [580] 

1410 DATA 00,00,21,02,01,CD,3C,A4 [1391] 

1420 DATA D5,E5,21,03,01,C3,74,AO [1224] 

1430 DATA FE,02,D8,FE,06,DO,11,00 [1118] 

1440 DATA 00,21,02,01,CD,3C,A4,D5 [1534] 

1450 DATA E5,21,03,01,C3,6A, Al, B7 [H34] 

1460 DATA C8,FE,05,DO,21,01,00,54 [1315] 

1470 DATA 5C,CD,3C,A4,D5,E5,21,02 [1338] 

1480 DATA 00,CD,D2,A4,CD,F2,A3,C3 [1316] 

1490 DATA C7,Al,21,E2,BD,FD,21,9C [1305] 

1500 DATA A3,CD,OE,A4,FD,21,A6,A3 [1165] 

1510 DATA CD,OE,A4,FD,21,DA,Al,CD [897] 

1520 DATA OE,A4,FD,21,8F,A2,FD,75 [1307] 

1530 DATA 01,FD,74,02,C9,21,DC,BD [1244] 

1540 DATA 18,DB,00,00,00,00,00,00 [749] 

1550 DATA 00,00,00,00,00,00,00,00 [1005] 

1560 DATA 00,00,00,00,00,00,00,00 [1005] 

1570 DATA 00,00,00,00,00,00,00,00 [1005] 

1580 DATA 00,00,00,00,22,38,A4,ED [1007] 

1590 DATA 53,3A,A4,CD,CC,BB,D5,E5 [181] 

1600 DATA 2A,38,A4,ED,5B,3A,A4,F5 [1080] 

1610 DATA BD,28,4C,23,E5,23,BD,28 [1542] 

1620 DATA OF,97,BB,DD,7E,00,28,05 [1366] 

1630 DATA CD,E4,BB,18,03,CD,DE,BB [1386] 

1640 DATA El,Fl,F5,BD,28,31,23,BD [1780] 

1650 DATA F5,20,04,DD,2B,DD,2B,3E [1400] 

1660 DATA 01,BC,28,27,38,33,DD,56 [1456] 

1670 DATA 07,DD,5E,06,DD,66,05,DD [1003] 

1680 DATA 6E,04,Fl,20,04,DD,23,DD [586] 

1690 DATA 23,D5,E5,CD,CC,BB,CI,09 [1266] 

1700 DATA EB,CI,09,EB,CD,C9,BB,Fl [1576] 

1710 DATA El,Dl,C9,DD,56,09,DD,5E [1285] 

1720 DATA 08,DD,66,07,DD,6E,06,18 [1372] 

1730 DATA D9,3E,04,BC,28,OE,DD,56 [940] 

1740 DATA OB,DD,5E,OA,DD,66,09,DD [1905] 

1750 DATA 6E,08,18,C6,DD,56,0D,DD [2022] 

1760 DATA 5E,OC,DD,66,OB,DD,6E,OA [1611] 

1770 DATA 18,B8,BD,28,09,23,23,BD [791] 

1780 DATA 28,04,DD,2B,DD,2B,DD,56 [1406] 

1790 DATA 03,DD,5E,02,ED,53,09,A5 [1071] 

1800 DATA 97,BC,C8,DD,66,05,DD,6E [656] 

1810 DATA 04,22,09,A5,DD,46,07,DD [886] 

1820 DATA 4E,06,ED,43,OB,A5,DD,46 [766] 

1830 DATA 09,DD,4E,08,ED,43,OD,A5 [954] 

1840 DATA C9,00,00,00,00,00,00,FE [1615] 

1850 DATA 04,D8,FE,08,DO,F5,3E,C9 [2246] 

1860 DATA 32,69,A3,3E,01,CD,73,BD [2031] 

1870 DATA Fl,11,00,00,21,04,04,CD [1351] 

1880 DATA 3C,A4,D5,E5,21,05,01,CD [1331] 

1890 DATA D2,A4,CD,06,B9,F5,D5,E5 [1515] 

1900 DATA 2A,OB,A5,11,33,A4,CD,29 [1325] 

1910 DATA 2E,2A,OD,A5,11,2E,A4,CD [971] 

1920 DATA 29,2E,El,11,24,A4,CD,29 [1021] 

1930 DATA 2E,CD,38,A3,C1,D5,E5,C5 [1291] 

1940 DATA CD,DC,BD,Dl,21,01,00,B7 [1652] 

1950 DATA ED,52,44,4D,21,68,01,C5 [1643] 

1960 DATA CD,B8,BD,CD,06,B9,11,1A [1302] 
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1970 DATA A4,CD,29,2E,C1,C5,11,1A [490] 

1980 DATA A4,21,24,A4, CD,3F,33, CD [1103] 

1990 DATA 38,A3,CD,E2,BD,C1,97,03 [787] 

2000 DATA B8,20,EA,El,Dl,CD,E2,BD [1523] 

2010 DATA 3E,CD,32,69,A3,F1,CD,0C [1116] 

2020 DATA B9,C3,A3,AO,FE,07,CO,F5 [1543] 

2030 DATA DD,E5,CD,OF,A5,DD,El,Fl [1033] 

2040 DATA 32,38,A4,DD,66,07,DD,6E [1166] 

2050 DATA 06,06,01,2B,AF,BC,20,02 [973] 

2060 DATA BD,C8,10,F7,DD,74,07,DD [1280] 

2070 DATA 75,06,DD,66,09,DD,6E,08 [1449] 

2080 DATA 06,01,2B,BC,20,02,BD,C8 [1618] 

2090 DATA 10,F8,DD,74,09,DD,75,08 [1199] 

2100 DATA 3A,38,A4,18,C2,FE,02,CO [1412] 

2110 DATA DD,7E,00,32,B2,A5,DD,7E [906] 

2120 DATA 02,32,C9,A5,C9,AF,C3,59 [1685] 

2130 DATA BC,3E,01,18,F9,3E,03,18 [1076] 

2140 DATA F5,3E,02,18,F1,00,00,00 [1320] 


1 REM Version fuer 464 [1047] 

10 MEMORY &96AF [728] 

20 FOR adr=&96B0 TO &9F92 STEP 8 [1443] 

30 FOR i=adr TO adr+ 7 [1011] 

40 READ b$ [315] 

50 byte=VAL("&”+b$) [465] 

60 POKE i,byte [294] 

70 NEXT i [375] 

80 NEXT adr [547] 

90 SAVE M g2-464.bin",b,&96B0,&8E2 [2184] 

100 END [HO] 

110 DATA 00,CD,A4,98,01,C7,96,21 [978] 

120 DATA C3,96,CD,Dl,BC,3E,C9,32 [1457] 

130 DATA BO,96,C9,00,00,00,00,14 [1085] 

140 DATA 97,C3,19,BD,C3,AD,97,C3 [1096] 

150 DATA DF,97,C3,2A,99,C3,CB,98 [1966] 

160 DATA C3,A4,98,C3,FA,97,C3,5E [1208] 

170 DATA 98,C3,6D,98,C3,18,9A,C3 [1709] 

180 DATA 24,9A,C3,E8,9C,C3,4F,9C [1172] 

190 DATA C3,37,9C,C3,43,9C,C3,F2 [1152] 

200 DATA 99,C3,F7,9C,C3,84,9D,C3 [1068] 

210 DATA 20,9E,C3,3D,9E,C3,CB,9E [1392] 

220 DATA C3,C3,9E,C3,69,9E,C3,72 [1715] 

230 DATA 9E,C3,14,9D,46,52,41,4D [1516] 

240 DATA C5,47,50,45,CE,47,50,41 [778] 

250 DATA 50,45,D2,47,57,49,4E,44 [1248] 

260 DATA 4F,D7,4F,52,49,47,49,CE [1345] 

270 DATA 52,47,D7,53,43,52,45,45 [1302] 

280 DATA CE,53,57,41,50,2E,4F,CE [123] 

290 DATA 53,57,41,50,2E,4F,46,C6 [863] 

300 DATA 43,4F,50,D9,5A,4F,4F,CD [1528] 

310 DATA 53,57,41,DO,43,4F,50,59 [1277] 

320 DATA 53,43,D2,5A,4F,4F,4D,53 [962] 

330 DATA 43,D2,53,57,41,50,53,43 [1177] 

340 DATA D2,43,4C,C7,53,50,49,45 [1254] 

350 DATA 47,45,CC,57,49,4E,44,4F [1090] 

360 DATA D7,57,2E,53,45,D4,57,4C [1064] 

370 DATA 41,45,4E,47,C5,53,53,57 [1406] 

380 DATA 41,DO,53,43,4F,50,D9,54 [1020] 

390 DATA 43,4F,50,D9,54,53,57,41 [1715] 

400 DATA DO,4C,41,53,53,CF,00,00 [1203] 

410 DATA 00,00,00,00,00,00.,00,00 [1005] 

420 DATA 00,00,00,00,00,FE,01,28 [1228] 

430 DATA 28,FE,02,CO,CD,C5,97,2B [1350] 

440 DATA DO , B8 , CC, D9,97 , DD, 7E, 00 [1-151] 

450 DATA CD,2C,BC,77,C9,DD,5E,02 [1533] 

460 DATA CD,55,99,11,11,00,19,3A [899] 

470 DATA Fl,99,47,DD,7E,02,FE,08 [1531] 

480 DATA C9,DD,7E,00,C3,DE,BB,FE [695] 

490 DATA 01,28,ÖD,FE,02,CO,CD,C5 [1378] 

500 DATA 97,DO,B8,CC,FO,97,18,CD [778] 

510 DATA DD,7E,00,C3,E4,BB,00,00 [814] 

520 DATA 00,00,FE,01,28,18,FE,02 [1108] 

530 DATA CO,DD,7E,00,DD,23,DD,23 [1917] 

540 DATA B7,20,OB,CD,22,98,D8,32 [1156] 

550 DATA CB,Bl,22,C9,Bl,C9,CD,22 [1164] 

560 DATA 98,D8,F5,CD,05,BC,Fl,C3 [497] 

570 DATA 08, BC, DD, 7E, 00 ,B7,28 ,"0A [917] 

580 DATA 3E,C0,11,F6,97,01,F8,97 [1037] 

590 DATA 18,13,ED,5B,7B,AE,21,FF [755] 

600 DATA 3F,B7,ED,52,D8,3E,40,11 [1503] 

610 DATA F8,97,01,F6,97,F5,C5,47 [850] 

620 DATA CD,OB,BC,B8,CI,28,OD,EB [709] 

630 DATA 73,23,72,Fl,B7,69,60,5E [1326] 
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640 DATA 23,56,EB,C9,F1,C9,11,7E [1219] 

650 DATA 98,06,81,21,73,98,AF,32 [1541] 

660 DATA 77,98,C3,D7,BC,21,73,98 [1745] 

670 DATA C3,DD,BC,00,00',00,00,00 [1385] 

680 DATA 81,7E,98,00,00,00,21,7D [1054] 

690 DATA 98,7E,2F,77,B7,3A,CB,Bl [1288] 

700 DATA 20,0E,06,C0,B8,78,2A,C9 [1642] 

710 DATA Bl,28,OE,2A,F6,97,18,09 [1090] 

720 DATA 06,40,B8,78,28,F0,2A,F8 [1343] 

730 DATA 97,C3,1F,BD,B7,20,0D,06 [1779] 

740 DATA 08,11,61,99,C5,CD,C2,98 [1464] 

750 DATA C1,10,F9,C9,FE,01,CO,DD [1577] 

760 DATA 7E,00,FE,08,DO,5F,CD,55 [1639] 

770 DATA 99,EB,21,28,B3,01,12,00 [1824] 

780 DATA ED,BO,C9,FE,03,06,04,28 [1255] 

790 DATA OB,06,08,FE,05,28,05,FE [1126] 

800 DATA 07,CO,06,OC,C5,DD,23,10 [1583] 

810 DATA FC,CI,DD,7E,00,FE,08,DO [1352] 

820 DATA 21,F1,99,4E,C5,CD,30,99 [2183] 

830 DATA CI,78,FE,08,C5,28,OD,CD [1540] 

840 DATA 14,99,CD,C9,BB,CI,78,FE [1378] 

850 DATA 04,28,OE,C5,CD,14,99,CD [1238] 

860 DATA CF,BB,CD,14,99,CD,D2,BB [1827] 

870 DATA CI,79,18,IC,DD,2B,DD,56 [1420] 

880 DATA 00,DD,2B,DD,5E,00,DD,2B [954] 

890 DATA DD,66,00,DD,2B,DD,6E,00 [712] 

900 DATA C9,71,FE,01,CO,DD,7E,00 [1657] 

910 DATA FE,08,DO,21,Fl,99,46,B8 [1062] 

920 DATA C8,77,58,CD,55,99,EB,21 [1638] 

930 DATA 28,B3,E5,01,12,00,C5,ED [799] 

940 DATA BO,3A,Fl,99,5F,CD,55,99 [2066] 

950 DATA CI,Dl,ED,BO,C9,21,12,00 [444] 

960 DATA 54,CD,BE,BD,11,61,99,19 [2413] 

970 DATA C9,00,00,00,00,00,00,00 [1564] 

980 DATA 00,00,00,00,00,00,00,00 [1005] 

990 DATA 00,00,00,00,00,00,00,00 [1005] 

1000 DATA 00,00,00,00,00,00,00,00 [1005] 

1010 DATA 00,00,00,00,00,00,00,00 [1005] 

1020 DATA 00,00,00,00,00,00,00,00 [1005] 

1030 DATA 00,00,00,00,00,00,00,00 [1005] 

1040 DATA 00,00,00,00,00,00,00,00 [1005] 

1050 DATA 00,00,00,00,00,00,00,00 [1005] 

1060 DATA 00,00,00,00,00,00,00,00 [1005] 

1070 DATA 00,00,00,00,00,00,00,00 [1005] 

1080 DATA 00,00,00,00,00,00,00,00 [1005] 

1090 DATA 00,00,00,00,00,00,00,00 [1005] 

1100 DATA 00,00,00,00,00,00,00,00 [1005] 

1110 DATA 00,00,00,00,00,00,00,00 [1005] 

1120 DATA 00,00,00,00,00,00,00,00 [1005] 

1130 DATA 00,00,00,00,00,00,00,00 [1005] 

1140 DATA 00,00,00,00,00,00,00,00 [1005] 

1150 DATA 00,00,B7,CA,DB,BB,FE,02 [1575] 

1160 DATA 38,08,CO,CD,DF,97,DD,23 [487] 

1170 DATA DD,23,DD,7E,00,FE,08,DO [1547] 

1180 DATA 21,Fl,99,56,D5,CD,30,99 [1786] 

1190 DATA CD,DB,BB,Dl,7A,C3,30,99 [1156] 

1200 DATA FE,07,DO,21,01,01,22,2B [1102] 

1210 DATA 9C,22,2D,9C,DD,E5,FD,El [1482] 

1220 DATA FE,02,CA,EB,9B,FE,08,32 [933] 

1230 DATA 35,9C,CC,E6,9B,DD,5E,04 [1378] 

1240 DATA DD,56,05,CB,3A,CB,1B,3A [863] 

1250 DATA 2B,9C,32,30,9C,47,21,FF [1518] 

1260 DATA FF,B7,ED,52,10,FC,E5,DD [1557] 

1270 DATA 5E,06,DD,56,07,CD,C6,9B [1253] 

1280 DATA 21,FF,FF,3A,2D,9C,32,2F [876] 

1290 DATA 9C,47,B7,ED,52,10,FC,E5 [1480] 

1300 DATA DD,6E,00,DD,66,01,DD,5E [1210] 

1310 DATA 02,DD,56,03,CD,DA,9B,22 [1699] 

1320 DATA C2,9B,22,33,9C,ED,43,C4 [1467] 

1330 DATA 9B,ED,43,31,9C,3A,35,9C [1473] 

1340 DATA DD,6E,08,DD,66,09,DD,5E [1000] 

1350 DATA OA,DD,5£,OB,FE,08,28,OE [1103] 

1360 DATA FE,06,28,OA,FE,04,28,03 [543] 

1370 DATA El,El,C9,CD,C6,BB,AF,30 [1604] 

1380 DATA 0D,E5,D5,3E,02,DD,21,DO [1715] 

1390 DATA 9C,CD,FA,97,Dl,El,CD,DA [357] 

1400 DATA 9B,Dl,D5,CD,06,B9,32,61 [1523] 

1410 DATA 9B,E5,C5,D5,E5,C5,CD,65 [1088] 

1420 DATA 9B,2A,33,9C,ED,4B,31,9C [1517] 

1430 DATA 37,3F,30,1A,32,35,9C,CD [1013] 

1440 DATA 65,9B,Dl,El,E5,D5,C5,4B [2012] 

1450 DATA CD,A8,9B,47,CD,E8,BD,3A [1589] 

1460 DATA 35,9C,C1,2A,33,9C,CD,A8 [1560] 

1470 DATA 9B,47,CD,E8,BD,11,01,00 [813] 

1480 DATA CB,BB,CD,50,9F,22,33,9C [1448] 
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1490 DATA ED,43,31,9C,C1,21,2F,9C [1620] 

1500 DATA 35,El,20,OF,3A,2E,90^16 [1208] 

1510 DATA 00,5F,CD,50,9F,3A,2D,9C [1595] 

1520 DATA 32,2F,9C,D1,13, AF,BA,20 [1845] 

1530 DATA Ä2,3A,2D,9C,32,2F,9C,2A [1277] 

1540 DATA C2,9B,ED,4B,C4,9B,16,01 [1209] 

1550 DATA CB,BA,CD,64,9F,22,C2,9B [1414] 

1560 DATA 22,33,9C,ED,43,31,9C,21 [947] 

1570 DATA 30,9C,35,C1,E1,20,0D,3A [1140] 

1580 DATA 2C,9C,57,CD,64,9F,3A,2B [1717] 

1590 DATA 9C,32,30,9C,AF,Dl,E3,23 [920] 

1600 DATA BC,E3,D5,C2,CI,9A,Dl,El [1099] 

1610 DATA 3E,00,C3,0C,B9,7E,D5,11 [1308] 

1620 DATA 08,00,OF,CB,12,CB,09,38 [828] 

1630 DATA 02,CB,1A,1D,20,F4,7A,CD [1388] 

1640 DATA 7C,9B,D1,C9,57,3A,C8,Bl [1075] 

1650 DATA FE,01,7A,D0,0F,0F,CE,00 [646] 

1660 DATA OF,9F,E6,06,AA,C9,3A,C8 [1689] 

1670 DATA B1,FE,01,3E,88,C8,3E,80 [1563] 

1680 DATA DO,3E,AA,C9,C5,47,CD,8E [1796] 

1690 DATA 9B,4F,78,CD,66,9B,CI,C9 [1131] 

1700 DATA C5,D5,CD,7C,9B,5F,06,08 [1508] 

1710 DATA CD,8E,9B,4F,CB,0B,17,CB [1089] 

1720 DATA 09,38,02,CB,03,10,F5,Dl [1501] 

1730 DATA CI, C9,00,00,00,00, CD, 11 [1U6] 

1740 DATA BC,2E,04,38,05,2E,02,28 [1053] 

1750 DATA 01,C9,26,00,EB,CD,B8,BD [1063] 

1760 DATA EB,C9,CB,3C,CB,1D,E5,CD [1642] 

1770 DATA C6,9B,E1,C3,1D,BC,11,OC [904] 

1780 DATA 00,FD,19,21,2B,9C,FD,7E [1963] 

1790 DATA 01,CB,7F,FD,7E,00,F5,47 [1106] 

1800 DATA B7,20,01,04,Fl,78,28,08 [1292] 

1810 DATA 36,01,23,ED,44,77,18,04 [1027] 

1820 DATA 77,23,36,01,23,FD,7E,03 [655] 

1830 DATA CB,7F,FD,7E,02,F5,47,B7 [704] 

1840 DATA 20,01,04,Fl,78,28,07,36 [898] 

1850 DATA 01,23,ED,44,77,C9,77,23 [1221] 

1860 DATA 36,01,C9,01,01,01,01,00 [875] 

1870 DATA 00,00,00,00,00,00,00,CB [1013] 

1880 DATA 47,C8,CD,8E,9C,CD,24,9A [2534] 

1890 DATA C3,D4,9C,CB,47,C8,CD,8E [1804] 

1900 DATA 9C,CD,E8,9C,C3,D4,9C,CB [1342] 

1910 DATA 47,C8,FE,01,28,08,CD,8E [2088] 

1920 DATA 9C,CD,18,9A,18,76,DD,7E [1081] 

1930 DATA 00,06,CO,2A,F8,97,16,40 [1008] 

1940 DATA FE,01,28,06,42,2A,F6,97 [731] 

1950 DATA 16,CO,E5,CD,OB,BC,B8,20 [1313] 

1960 DATA 01,E3,E1,22,F8,97,22,F6 [1048] 

1970 DATA 97,CD,05,BC,60,2E,00,5D [1378] 

1980 DATA 01,00,40,ED,BO,C9,3D,F5 [653] 

1990 DATA 3A,CB,Bl,FE,CO,3E,01,28 [1766] 

2000 DATA 01,AF,32,D3,9C,3E,37,32 [1370] 

2010 DATA A6,9A,DD,E5,DD,7E,00,CB [982] 

2020 DATA 3F,3E,00,3F,17,32,D2,9C [1465] 

2030 DATA F5,3E,02,DD,21,D0,9C,DD [1161] 

2040 DATA E5,CD,FA,97,DD,El,Fl,CB [822] 

2050 DATA 3F,3E,00,3F,17,32,D2,9C [1465] 

2060 DATA DD,El,Fl,DD,23,DD,23,C9 [2117] 

2070 DATA 00,00,01,00,3E,AF,32,A6 [1017] 

2080 DATA 9A,3A,D3,9C,32,D2,9C,DD [1569] 

2090 DATA 21,D0,9C,3E,02,C3,FA,97 [1400] 

2100 DATA 47,AF,32,Dl,9A,78,CD,18 [1490] 

2110 DATA 9A,3E,3F,32,Dl,9A,C9,FE [990] 

2120 DATA 02,CO,DD,7E,00,21,31,9B [1516] 

2130 DATA 36,BA,B7,28,02,36,FA,DD [1447] 

2140 DATA 7E,02,21,F9,9A,36,BB,B7 [876] 

2150 DATA C8,36,FB,C9,FE,01,20,1F [1840] 

2160 DATA 11,4F,9D,DD,7E,00,B7,21 [1185] 

2170 DATA 49,9D,28,01,EB,11,E0,9A [1128] 

2180 DATA 01,03,00,C5,E5,ED,BO,El [1570] 

2190 DATA CI,11,EE,9A,ED,BO,C9,FE [1141] 

2200 DATA 02,CO,DD,7E,00,DD,23,DD [2044] 

2210 DATA 23,32,53,9D,11,4C,9D,18 [1660] 

2220 DATA D2,CD,A8,9B,CD,52,9D,CD [1423] 

2230 DATA 5E,9D,FE,00,CA,A8,9B,E3 [1729] 

2240 DATA 23,23,23,23,E3,C9,B7,C2 [2032] 

2250 DATA A8,9B,18,F3,00,00,00,00 [2168] 

2260 DATA 00,00,00,00,00,00,00,00 [1005] 

2270 DATA 00,00,00,00,00,00,00,00 [1005] 

2280 DATA 00,00,00,00,00,00,00,00 [1005] 

2290 DATA 00,00,00,00,FE,01,C0,DD [1377] 

2300 DATA 7E,00,CD,F7,9D,CB,78,20 [1464] 

2310 DATA 4C,CB,B8,F5,D5,C5,CD,69 [1899] 

2320 DATA BB,CD,OB,9E,78,CB,21,CB [1255] 

2330 DATA 21,CB,21,59,E5,21,00,00 [890] 
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2340 DATA 54,19,10,FD,EB,El,E3,47 [1705] 

2350 DATA AF,ED,52,EB,El,BB,20,28 [754] 

2360 DATA BA,20,25,C5,CD,1A,BC,C1 [957] 

2370 DATA Dl,DD,68,DD,45,E5,1A,ED [1497] 

2380 DATA 47,7E,12,ED,57,77,13,2C [1121] 

2390 DATA CC,12,9F,10,Fl,El,CD,IC [1229] 

2400 DATA 9F,OD,20,E7,Fl,C3,B4,BB [1209] 

2410 DATA Dl,18,F9,21,64,9D,47,04 [1691] 

2420 DATA 23,23,23,23,10,FA,2B,46 [1973] 

2430 DATA 2B,4E,2B,56,2B,5E,C9,CD [880] 

2440 DATA E3,9D,E5,CD,B4,BB,F5,AF [1582] 

2450 DATA BA,20,05,BB,20,02,CB,F8 [576] 

2460 DATA Fl,El,C9,7A,94,47,04,7B [1788] 

2470 DATA 95,4F,OC,3A,C8,Bl,FE,02 [656] 

2480 DATA C8,CB,20,B7,CO,CB,20,C9 [2091] 

2490 DATA FE,03,CO,DD,7E,04,CD,E3 [70] 

2500 DATA 9D,DD,56,03,DD,5E,02,73 [566] 

2510 DATA 23,72,DD,56,01,DD,5E,00 [1676] 

2520 DATA 23,73,23,72,C9,FE,02,C0 [1108] 

2530 DATA DD,7E,02,CD,F7,9D,F5,CD [897] 

2540 DATA 69,BB,CD,OB,9E,58,69,26 [1310] 

2550 DATA 00,54,CD,BE,BD,11,08,00 [1257] 

2560 DATA CD,BE,BD,EB,DD,6E,00,DD [1448] 

2570 DATA 66,01,73,23,72,Fl,C3,B4 [1178] 

2580 DATA BB,CD,OB,9F,CD,72,9E,C3 [1165] 

2590 DATA FF,9E,FE,06,CO,DD,6E,OA [1498] 

2600 DATA 2D,DD,66,08,25,CD,1A,BC [778] 

2610 DATA E5,DD,6E,06,DD,66,04,2D [836] 

2620 DATA 25,CD,1A,BC,D1,DD,46,02 [1695] 

2630 DATA DD,4E,00,CD,13,9E,CB,21 [573] 

2640 DATA CB,21,CB,21,DD,68,DD,45 [866] 

2650 DATA E5,D5,7E,ED,47,1A,77,ED [1278] 

2660 DATA 57,12,EB,2C,CC,12,9F,EB [1360] 

2670 DATA 2C,CC,12,9F,10,EC,El,CD [1509] 

2680 DATA IC,9F,EB,El,CD,IC,9F,OD [2047] 

2690 DATA 20,DC,C9,CD,OB,9F,CD,CB [1588] 

2700 DATA 9E,18,34,FE,07,C0,DD,7E [1023] 

2710 DATA 00,F5,tD,EE,9E,DD,6E,0C [1781] 

2720 DATA 2D,DD,66,OA,25,CD,1A,BC [1777] 

2730 DATA Fl,E5,2F,E6,01,CD,EE,9E [2033] 

2740 DATA DD,23,DD,23,18,93,32,D2 [772] 

2750 DATA 9C,DD,E5,DD,21,DO,9C,3E [1047] 

2760 DATA 02,CD,FA,97,DD,El,C9,01 [1365] 

2770 DATA 7E,12,21,A9,9E,70,21,A2 [2027] 

2780 DATA 9E,71,C9,01,00,00,18,F2 [1355] 

2790 DATA 2C,CO,24,7C,E6,07,CO,7C [1489] 

2800 DATA D6,08,67,C9,7C,C6,08,67 [940] 

2810 DATA E6,38,C0,7C,D6,40,67,7D [1136] 

2820 DATA C6,50,6F,DO,18,E4,7C,D6 [1712] 

2830 DATA 08,67,E6,38,FE,38,CO,7C [1510] 

2840 DATA C6,40,67,7D,D6,50,6F,DO [911] 

2850 DATA 18,04,7D,2D,B7,CO,7C,25 [2147] 

2860 DATA E6,07,CO,7C,C6,08,67,C9 [1627] 

2870 DATA 7B,B7,28,10,CB,7B,20,1A [2462] 

2880 DATA 41,CB,09,30,04,2C,CC,12 [882] 

2890 DATA 9F,ID,20,F5,7A,B7,C8,CB [1484] 

2900 DATA 7A,20,IC,42,CD,2E,9F,10 [1387] 

2910 DATA FB,C9,CB,BB,7B,B7,28,EC [1577] 

2920 DATA 43,CB,01,30,06,7D,2D,B7 [501] 

2930 DATA CC,46,9F,10,F4,18,DD,CB [936] 

2940 DATA BA,7A,B7,C8,42,CD,IC,9F [1137] 

2950 DATA 10,FB,00,00,00,00,00,00 [1316] 


1 REM Version fuer 464 [1047] 

10 MEMORY &87DF [734] 

20 FOR adr=&87E0 TO &8F91 STEP 8 [1573] 

30 FOR i=adr TO adr+ 7 [1011] 

40 READ b$ [315] 

50 byte=VAL("&"+b$) [465] 

60 POKE i,byte [294] 

70 NEXT i [375] 

80 NEXT adr [547] 

90 SAVE"t-464.bin",b,&87E0,&7Bl [1516] 

100 END [HO] 

110 DATA CD,06,B9,F5,3E,01,CD,0E [1222] 

120 DATA BQ,3E,01,CD,90,BB,CD,4F [447] 

130 DATA OD,CD,12,07,CD,EB,06,21 [1777] 

140 DATA 6D,06,CD,EB,06,CD,2A,15 [840] 

150 DATA 3C,CD,9F,BB,CD,BC,8C,3E [1982] 

160 DATA 03,CD,90,BB,DD,21,El,88 [1623] 

170 DATA 3E,02,CD,D3,8A,21,A5,88 [1528] 

180 DATA CD,97,88,3E,02,CD,90,BB [1207] 

190 DATA 3E,02, DD, 21,El,88,DD,77 [1436] 
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200 

DATA 

00,CD,D3,8A,CD,94,88,21 

[1220] 

210 

DATA 

01,27,CD,75,BB,CD,94,88 

[1739] 

220 

DATA 

21,06,02,CD,75,BB,CD,OC 

[1123] 

230 

DATA 

8D,3E,A4,CD,5D,BB,3E,01 

[2143] 

240 

DATA 

CD,90,BB,CD,94,88,3C,01 

[1603] 

250 

DATA 

OB, OB, CD, 32 ,BC, 3E,.02,01 

[1823] 

260 

DATA 

1A,1A,CD,32,BC,3E,03,01 

[1164] 

270 

DATA 

06,06,CD,32,BC,AF,4F,47 

[1446] 

280 

DATA 

C5,CD,32,BC,CI,CD,38,BC 

[893] 

290 

DATA 

AF,CD,9F,BB,CD,3C,OD,01 

[1257] 

300 

DATA 

E8,88,21,E4,88,CD,Dl,BC 

[914] 

310 

DATA 

3E,C9j32,E0,87,21,07,02 

[1654] 

320 

DATA 

CD,75,BB,3E,01,CD,90,BB 

[1251] 

330 

DATA 

F1,C3,0C,B9,2A,A3,88,7E 

[1322] 

340 

DATA 

23,22,A3,88,B7,C8,CD,00 

[1029] 

350 

DATA 

14,18,F4,00,00,20,50,20 

[1441] 

360 

DATA 

72,20,6F,20,66,20,69,20 

[868] 

370 

DATA 

20,52,20,53,20,58,00,20 

[1128] 

380 

DATA 

31,2E,31,00,F2,FB,00,20 

[1546] 

390 

DATA 

31,39,38,35,20,26,20,31 

[997] 

400 

DATA 

39,38,37,20,62,79,20,4B 

[872] 

410 

DATA 

6C,61,75,73,20,4B,72,65 

[1666] 

420 

DATA 

6D,65,72,00,2A,4F,4B,2A 

[1280] 

430 

DATA 

00,03,00,01,00,00,00,00 

[1175] 

440 

DATA 

38,89,C3,9C,BB,C3,D1,89 

[1796] 

450 

DATA 

C3,CD,89,C3,97,8A,C3,D3 

[1587] 

460 

DATA 

8A,C3,BC,8C,C3,0C,8D,C3 

[1397] 

470 

DATA 

AO,8A,C3,6E,8D,C3,21,8A 

[1361] 

480 

DATA 

C3,7E,8A,C3,85,8A,C3,A9 

[1241] 

490 

DATA 

8D,C3,1D,8E,C3,B6,8A,CF 

[787] 

500 

DATA 

D8,94,C3,18,BB,C3,93,8D 

[1704] 

510 

DATA 

C3,28,8A,C3,32,8A,C3,4D 

[1209] 

520 

DATA 

8A,C3,55,8C,C3,6D,8F,C3 

[787] 

530 

DATA 

7C,8F,C3,86,8F,C3,81,8F 

[2022] 

540 

DATA 

49,4E,56,45,52,03,53,43 

[1447] 

550 

DATA 

52,4F,4C,4C,2E,D5,53,43 

[848] 

560 

DATA 

52,4F,4C,4C,2E,C4,54,52 

[1284] 

570 

DATA 

41,4E,53,50,AE,53,43,48 

[837 ] 

580 

DATA 

52,49,46,D4,53,2E,4F,CE 

[942] 

590 

DATA 

54,2E,4F,46,C6,48,4F,4D 

[1106] 

600 

DATA 

C5,54,53,50,45,45,C4,53 

[836] 

610 

DATA 

43,52,4F,4C,CC,43,41,50 

[1559] 

620 

DATA 

D3,53,48,49,46,D4,44,49 

[1383] 

630 

DATA 

CE,41,53,43,49,C9,43,55 

[623] 

640 

DATA 

52,53,4F,D2,42,45,4C,CC 

[1141] 

650 

DATA 

57,41,49,54,4B,45,D9,50 

[570] 

660 

DATA 

52,49,4E,D4,52,45,41,C4 

[357 ] 

670 

DATA 

52,45,41,44,54,58,D4,43 

[U42] 

680 

DATA 

48,47,53,54,D2,43,48,41 

[1018] 

690 

DATA 

52,2E,52,4F,D4,4C,49,47 

[352] 

700 

DATA 

48,D4,46,45,54,D4,55,4E 

[867] 

710 

DATA 

54,AE,4E,4F,52,4D,41,CC 

[1823] 

720 

DATA 

00,00,00,00,00,OE,00,18 

[1059] 

730 

DATA 

02,OE,01,B7,C8,FE,04,DO 

[2525] 

740 

DATA 

FE,03,F5,28,04,DD,2B,DD 

[656] 

750 

DATA 

2B,DD,7E,04,FE,08,30,28 

[1659] 

760 

DATA 

CD,B4,BB,CD,69,BB,30,20 

[2244] 

770 

DATA 

Fl,DD,7E,00,28,03,CD,99 

[1422] 

780 

DATA 

BB,E6,1F,CD,2C,BC,DD,46 

[1066] 

790 

DATA 

02,C5,E5,D5,F5,41,CD,50 

[1639] 

800 

DATA 

BC,F1,D1,E1,C1,10,F2,C9 

[775] 

810 

DATA 

Fl,21,4D,BC,22,07,8A,CD 

[1101] 

820 

DATA 

Fl,89,21,50,BC,22,07,8A 

[1715] 

830 

DATA 

C9,CD,75,8A,CO,C3,05,BC 

[1861] 

840 

DATA 

CD,75,8A,CO,CD,60,BB,77 

[1112] 

850 

DATA 

2 3,C9,CD,75,8A,CO,7E,B7 

[1423] 

860 

DATA 

C8,23,5E,23,56,EB,47,CD 

[1824] 

870 

DATA 

2C,8A,E5,DF,4A,8A,El,10 

[1618] 

880 

DATA 

F6,C9,0F,15,FE,FE,02,C0 

[2238] 

890 

DATA 

CD,77,8A,46,C5,23,5E,23 

[1198] 

900 

DATA 

56,D5,E5,DD,6E,02,DD,66 

[315] 

910 

DATA 

03,7E,23,5E,23,56,E3,72 

[1402] 

920 

DATA 

2B,73,2B,77,El,Dl,CI,72 

[2016] 

930 

DATA 

2B,7 3,2B,70,C9,FE,01,DD 

[1788] 

940 

DATA 

6E,00,DD,66,01,C9,21,E8 

[1316] 

950 

DATA 

B4,06,80,18,05,21,E7,B4 

[1199] 

960 

DATA 

06,FF,FE,01,CO,DD,7E,00 

[1194] 

970 

DATA 

B7,78,20,01,2F,77,C9,FE 

[850] 

980 

DATA 

01,C0,DD,7E,00,C3,9F,BB 

[1025] 

990 

DATA 

FE,01,38,OF,CO,DD,7E,00 

[1327] 

1000 DATA CD,B4,BB,F5,CD,B3,8A,Fl 

[1595] 

1010 DATA C3,B4,BB,CF,2A,95,FE,02 

[840] 

1020 DATA CO,FE,01,DD,7E,00,28,OC 

[1201] 

1030 DATA B7,F5,CC,7E,BB,Fl,C4,7B 

[1819] 

1040 DATA BB,DD,7E,02,B7,CA,84,BB 

[418] 
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1050 DATA C3,81,BB,FE,03,DO,FE,01 [972] 

1060 DATA D8,28,0A,DD, 7 E, 0 0 ,DD,23 [555] 

1070 DATA DD,23,32,EE,8A,DD,7E,00 [747] 

1080 DATA 32,ED,8A,C9,00,02,02,E5 [995] 

1090 DATA CD,1A,BC,22,B4,8B,E1,3A [838] 

1100 DATA EC,8A,B7,28,72,E5,21,CF [1604] 

1110 DATA Bl,11,51,8C,01,04,00,ED [735] 

1120 DATA BO,AF,32,68,8B,3A,C8,B1 [1358] 

1130 DATA 32,50,8C, FE,01,3A,ED,8A [1145] 

1140 DATA 38,30,28,16,FE,02,38,2A [922] 

1150 DATA 21,33,8D,06,01,28,12,FE [1062] 

1160 DATA 04,21,38,8D,06,00,28,09 [894] 

1170 DATA 18,18,FE,02,21,3D,8D,18 [1535] 

1180 DATA F3,11,CF,Bl,7E,23,32,68 [1363] 

1190 DATA 8B,78,01,04,00,ED,BO,32 [1578] 

1200 DATA C8,Bl,El,CD,6F,8B,F5,21 [1345] 

1210 DATA 51,8C,11,CF,Bl,01,04,00 [1305] 

1220 DATA ED,BO,3A,50,8C,32,C8,Bl [779] 

1230 DATA 2A,DE,B8,7C,B5,28,06,3E [1107] 

1240 DATA 00,84,32,DF,B8,Fl,C9,3A [1704] 

1250 DATA 8F,B2,11,98,B2,E5,D5,CD [1782] 

1260 DATA B2,8B,CD,92,8B,D1,El,30 [1537] 

1270 DATA 01,CO,3A,90,B2,D5,CD,B2 [1991] 

1280 DATA 8B,D1,06,08,1A,2F,12,13 [1281] 

1290 DATA 10,FA,OE,00,79,CD,A5,BB [1260] 

1300 DATA CD,5F,8C,11,98,B2,06,08 [802] 

1310 DATA 1A,BE,20,09,23,13,10,F8 [1257] 

1320 DATA 79,FE,20,37,C9,0C,20,E4 [611] 

1330 DATA AF,C9,4F,21,00,00,CF,4D [599] 

1340 DATA 8F,E5,CD,A5,BB,CD,5F,8C [1519] 

1350 DATA EB,3A,C8,B1,FE,01,21,3D [1250] 

1360 DATA 8C,3E,04,28,0C,21,44,8C [1513] 

1370 DATA 3E,08,30,05,3E,02,21,38 [1106] 

1380 DATA 8C,32,03,8C,22,07,8C,E1 [1044] 

1390 DATA CD,64,OB,OE,08,3A,EE,8A [1326] 

1400 DATA 47,C5,C5,D5,E5,1A,5F,06 [1273] 

1410 DATA 08,3A,ED,8A,57,AF,4F,C5 [1711] 

1420 DATA 42,B7,CB,7B,28,01,37,CB [1641] 

1430 DATA 11,3C,FE,04,20,08,CD,3D [1516] 

1440 DATA 8C,AF,4F,10,EC,04,10,E9 [979] 

1450 DATA 32,19,8C,79,CI,CB,03,4F [1480] 

1460 DATA 3E,00,10,DB,El,CD,13,OC [1783] 

1470 DATA Dl,CI,05,20,C5,13,CI,OD [1367] 

1480 DATA 20,BF,3A,ED,8A,47,05,C8 [1760] 

1490 DATA C5,CD,0F,15,C1,10,F9,C9 [477] 

1500 DATA 79,07,07,Bl,4F,79,07,07 [1040] 

1510 DATA 07,07,Bl,4F,D5,C5,EB,CD [1263] 

1520 DATA 76,13,CD,F9,OB,CI,Dl,C9 [1031] 

1530 DATA 00,00,00,00,00,FE,01,CO [1243] 

1540 DATA DD,7E,00,32,61,8C,C9,F5 [1131] 

1550 DATA 3E,00,B7,28,30,D5,C5,11 [1778] 

1560 DATA B4,8C,D5,01,08,00,ED,B0 [782] 

1570 DATA Dl,06,OB,FE,02,28,20,21 [1147] 

1580 DATA OE,1F,38,03,21,06,17,22 [1305] 

1590 DATA 88,8C,62,6B,48,06,08,CB [583] 

1600 DATA 06,17,23,10,FA,F5,41,62 [971] 

1610 DATA 6B,10,Fl,18,11,Fl,C9,62 [798] 

1620 DATA 6B,48,06,08,CB,3E,17,10 [1108] 

1630 DATA FB,F5,23,41,10,F3,06,08 [1203] 

1640 DATA 6B,62,Fl,12,13,10,FB,CI [1375] 

1650 DATA Dl,Fl,37,C9,00,00,00,00 [1627] 

1660 DATA 00,00,00,00,00,21,2D,8D [913] 

1670 DATA 11,D3,BD,01,06,00,ED,BO [907] 

1680 DATA 3E,C9,32,BC,8C,AF,32,OC [1527] 

1690 DATA 8D,3D,32,EC,8A,21,3A,BD [1526] 

1700 DATA E5,4E,23,5E,23,46,3E,7F [576] 

1710 DATA AO,57,ED,53,03,8D,21,09 [954] 

1720 DATA 8D,71,23,73,23,70,El,3E [1565] 

1730 DATA C3,77,11,FA,8C,23,73,23 [1028] 

1740 DATA 72,C9,DF,03,8D,E5,DF,06 [1239] 

1750 DATA 8D,El,C9,00,00,FE,6F,2C [528] 

1760 DATA FE,00,00,00,00,3E,C9,32 [1385] 

1770 DATA 0C,8D,32,6D,8D,AF,32,BC [1579] 

1780 DATA 8C,32,73,8D,CD,ID,8E,01 [1049] 

1790 DATA 03,00,11,3A,BD,21,09,8D [1369] 

1800 DATA ED,BO,C3,51,BB,C3,B9,8B [1142] 

1810 DATA C3,EF,8A,01,CO,30,OC,03 [1454] 

1820 DATA 03,FO,OF,EO,OE,01,CC,33 [1943] 

1830 DATA 88,22,F5,3A,C8,B1,FE,02 [565] 

1840 DATA 28,OB,Fl,E5,CD,A5,BB,CD [1375] 

1850 DATA 5F,8C,C3,4E,13,CD,64,OB [623] 

1860 DATA Fl,E5,CD,A5,BB,CD,5F,8C [1437] 

1870 DATA Dl,EB,06,08,1A,13,77,CD [1360] 

1880 DATA 13,0C,10,F8,C9,00,3E,01 [1396] 

1890 DATA 32,6D,8D,00,3A,D4,BD,FE [879] 
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1900 

DATA 

4A,C0,21,D3,BD,36,C3,23 

[1957] 

1910 

DATA 

11,42,8D,73,23,72,3E,C9 

[1339] 

1920 

DATA 

32,73,8D,AF,32,0C,8D,32 

[723] 

1930 

DATA 

EC,8A,C9,CD,75,8A,C0,46 

[1118] 

1940 

DATA 

23,5E,23,56,EB,7E,E5,C5 

[1565] 

1950 

DATA 

CD,5D,BB,C1,E1,23,10,F5 

[968] 

1960 

DATA 

C9,00,21,6E,8E,11,6B,8E 

[1506] 

1970 

DATA 

06,03,C5,D5,46,23,11,92 

[1561] 

1980 

DATA 

8E,C5,1A,46,13,23,E5,CD 

[731] 

1990 

DATA 

27,BB,El,CI,10,F3,Dl,CI 

[1075] 

2000 

DATA 

1A,13,32,C0,8D,10,E3,3E 

[1708] 

2010 

DATA 

C9,32,A9,8D,AF,32,ID,8E 

[1655] 

2020 

DATA 

3A,BC,8C,B7,20,03,CD,6E 

[1854] 

2030 

DATA 

8D,3E,C3,11,C6,8E,21,A5 

[1669] 

2040 

DATA 

BB,CD,65,8E,11,EF,8A,21 

[1273] 

2050 

DATA 

D6,BD,CD,65,8E,11,11,8E 

[1580] 

2060 

DATA 

23,CD,65,8E,11,01,8E,18 

[1185] 

2070 

DATA 

61,DD,E5,F5,CD,06,B9,F1 

[1284] 

2080 

DATA 

CD,A5,BB,CD,5F,8C,C3,4A 

[1801] 

2090 

DATA 

19,4F,3A,93,B2,B7,79,C2 

[609 ] 

2100 

DATA 

01,8E,C3,15,14,C9,21,A2 

[379] 

2110 

DATA 

8E,CD,AD,8D,3A,BC,8C,B7 

[1450] 

2120 

DATA 

28,07,3A,6D,8D,B7,CC,0C 

[1153] 

2130 

DATA 

8D,3E,C9,32,ID,8E,AF,32 

[1771] 

2140 

DATA 

A9,8D,3E,CF,11,D3,92,21 

[1281] 

2150 

DATA 

A5,BB,CD,65,8E,21,D6,BD 

[1445] 

2160 

DATA 

47,3A,EC,8A,B7,78,20,06 

[1001] 

2170 

DATA 

11,C0,93,CD,65,8E,21,D9 

[1014] 

2180 

DATA 

BD,11,0C,94,CD,65,8E,11 

[833] 

2190 

DATA 

45,99,21,FC,BB,77,23,73 

[834] 

2200 

DATA 

23,72,C9,2D,33,27,10,7E 

[1332] 

2210 

DATA 

2B,23,3C,5E,7D,7B,7C,2D 

[2168] 

2220 

DATA 

2E,30,2C,37,7A,33,79,10 

[869] 

2230 

DATA 

3F,2A,27,3E,60,5D,5B,5C 

[1295] 

2240 

DATA 

5F,3A,3D,3B,2F,5A,40,59 

[1327] 

2250 

DATA 

01,A3,19,11,13,16,18,1A 

[1127] 

2260 

DATA 

1C,1D,1E,1F,20,27,29,2B 

[1454] 

2270 

DATA 

39,47,10,2D,5B,5D,5C,5E 

[838] 

2280 

DATA 

40,3B,3A,2F,2E,30,2C,37 

[1181] 

2290 

DATA 

79,33,7A,10,3D,7B,7D,60 

[1082] 

2300 

DATA 

A3,7C,2B,2A,3F,3E,5F,3C 

[978] 

2310 

DATA 

27,59,23,5A,01,FF,C5,CD 

[997] 

2320 

DATA 

FE,8E,3E,00,4F,B7,28,24 

[996] 

2330 

DATA 

D5,11,F6,8E,D5,CD,06,B9 

[1996] 

2340 

DATA 

F5,06,08,AF,7E,17,B6,12 

[1033] 

2350 

DATA 

23,13,10,F7,Fl,CD, OC,B9 

[1357] 

2360 

DATA 

37,CB,79,28,05,3E,FF,1B 

[1304] 

2370 

DATA 

12,37,El,Dl,CI,C9,00,00 

[1118] 

2380 

DATA 

00,00,00,00,00,00,21,2D 

[941] 

2390 

DATA 

8F,01,08,00,CD,OC,8F,37 

[546] 

2400 

DATA 

C8,CF,D3,92,FE,40,C8,D8 

[1763] 

2410 

DATA 

09,FE,5B,C8,D8,09,FE,5C 

[1231] 

2420 

DATA 

C8,09,FE,5D,C8,09,FE,7B 

[1570] 

2430 

DATA 

C8,D8,09,FE,7E,DO,09,FE 

[1638] 

2440 

DATA 

7C,C8,09,AF,C9,3E,60,7C 

[2195] 

2450 

DATA 

C6,7C,OC,F8,00,DB,3C,66 

[1460] 

2460 

DATA 

66,7E,66,66,00,66,3C,66 

[816] 

2470 

DATA 

66,66,66,3C,00,66,00,66 

[1145] 

2480 

DATA 

66,66,66,3C,00,C6,00,78 

[1231] 

2490 

DATA 

OC,7C,CC,76,00,3C,46,C6 

[1072] 

2500 

DATA 

D8,C6,C6,D8,C0,66,00,3C 

[1356] 

2510 

DATA 

66,66,66,3C,00,66,00,00 

[1163] 

2520 

DATA 

66,66,66,3E,00,11,E6,55 

[1114] 

2530 

DATA 

21,DD,8E,73,23,72,21,CB 

[1212] 

2540 

DATA 

8E,CB,CE,C9,11,17,B6,18 

[569] 

2550 

DATA 

EF,AF,32,CB,8E,C9,21,CB 

[1170] 

2560 

DATA 

8E,CB,FE,11,00,00,18,EO 

[710] 

2570 

DATA 

C9,00,00,00,00,00,00,00 

[1564] 

1 REM Version fuer 6128 

[991] 

10 MEMORY 

&9F9F 

[488] 

20 FOR adr=&9FA0 TO &A5FD STEP 8 

[1085] 

30 

FOR i=adr TO adr+ 7 

[1011] 

40 

READ b$ 

[315] 

50 

byte=VAL ("&" +b$) 

[465] 

60 

POKE i,byte 

[294] 

70 

NEXT 

i 

[375] 

80 NEXT adr 

[547] 

90 SAVE"gl-6128.bin",b,&9FA0,&65D 

[2065] 

100 END 


[110] 

110 DATA 01,B3,9F,21,AF,9F,CD, Dl 

[2107] 
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120 

DATA 

BC,3E,C9,32,AO,9F,C9,00 

[1017] 

130 

DATA 

00,00,00,E5,9F,C3,62,AO 

[1431] 

140 

DATA 

C3,1B,A1,C3,A9,A3,C3,C0 

[1875] 

150 

DATA 

A3,C3,B2,Al,C3,D7,A3,C3 

[898] 

160 

DATA 

C4,A2,C3,B6,A2,C3,0F,A5 

[701] 

170 

DATA 

C3,9C,A5,C3,ED,A5,C3,F1 

[1246] 

180 

DATA 

A5,C3,F5,A5,C3,F9,A5,C3 

[1328] 

190 

DATA 

A8,AO,C3,DD,A5,51,55,41 

[1213] 

200 

DATA 

44,52,41,D4,41,2E,51,55 

[1838] 

210 

DATA 

41,44,52,41,D4,52,45,43 

[1510] 

220 

DATA 

48,54,45,43,CB,41,2E,52 

[1154] 

230 

DATA 

45,43,48,54,45,43,CB,43 

[1386] 

240 

DATA 

49,52,43,4C,C5,47,44,49 

[998] 

250 

DATA 

53,C3,45,4C,4C,49,50,53 

[872] 

260 

DATA 

C5,41,2E,45,4C,4C,49,50 

[1390] 

270 

DATA 

53,C5,56,49,45,4C,45,43 

[380] 

280 

DATA 

CB,41,2E,56,49,45,4C,45 

[731] 

290 

DATA 

43,CB,46,4F,52,43,C5,58 

[468] 

300 

DATA 

4F,D2,4F,D2,41,4E,C4,49 

[1364] 

310 

DATA 

4E,56,45,52,D4,41,2E,56 

[1627] 

320 

DATA 

2E,47,45,4E,41,D5,00,DF 

[1372] 

330 

DATA 

5 3, AO, C9,9C, DD, FD, AF, 9 5 

[765] 

340 

DATA 

6F,9C,95,BC,67,37,CO,FE 

[1533] 

350 

DATA 

01,C9,B7,C8,FE,05,DO,21 

[1875] 

360 

DATA 

01,00,54,5C,CD,3C,A4,D5 

[1160] 

370 

DATA 

E5,21,02,00,CD,D2,A4,D5 

[1535] 

380 

DATA 

ED,5B,09,A5,21,00,00,CD 

[1347] 

390 

DATA 

F9,BB,El,E5,11,00,00,CD 

[1543] 

400 

DATA 

F9,BB,ED,5B,09,A5,EB,CD 

[1804] 

410 

DATA 

56,A0,EB,21,00,00,CD,F9 

[1631] 

420 

DATA 

BB,El,CD,56,AO,11,00,00 

[1135] 

430 

DATA 

CD,F9,BB,E1,D1,C3,C9,BB 

[1590] 

440 

DATA 

B7,28,08,FE,02,DD,7E,00 

[1543] 

450 

DATA 

28,58,DO,F5,CD,11,BC,OE 

[1356] 

460 

DATA 

CO,38,06,OE,FO,28,02,OE 

[1225] 

470 

DATA 

FF,F1,CD,B4,BB,CD,69,BB 

[1410] 

480 

DATA 

CD,06,B9,7B,95,3C,87,87 

[1652] 

490 

DATA 

87,5F,7A,94,3C,57,CD,6A 

[1283] 

500 

DATA 

OB,AF,82,10,FD,57,E5,7A 

[1668] 

510 

DATA 

CD,10,Al,30,0B,42,7E,A9 

[1076] 

520 

DATA 

77,CD,05,00,10,F8,18,12 

[1181] 

530 

DATA 

C5,D5,7E,A9,77,15,28,08 

[1504] 

540 

DATA 

42,23,7E,A9,77,23,10,FA 

[933] 

550 

DATA 

Dl,CI,El,CD,1F,0C,1D,20 

[1944] 

560 

DATA 

D5,C9,4F,DD,7E,02,18,B2 

[1043] 

570 

DATA 

3D, 85,D0,7C,E6,07,EE,07 

[1659] 

580 

DATA 

CO,37,C9,B7,C8,FE,05,DO 

[1174] 

590 

DATA 

21,01,00,54,5C,CD,3C,A4 

[ 911 ] 

600 

DATA 

D5,E5,21,02,00,18,3B,CD 

[1312] 

610 

DATA 

D5,BB,D5,E5,CD,D8,BB,D5 

[668] 

620 

DATA 

E5,21,02,00,CD,D2,A4,D5 

[1535] 

630 

DATA 

CD,CC,BB,ED,4B,09,A5,EB 

[1443] 

640 

DATA 

09,EB,CD,CF,BB,CD,CC,BB 

[1254] 

650 

DATA 

CI,E5,09 , EB, El,CD,D2 ,BB 

[1270] 

660 

DATA 

CD,DB , BB,El,Dl,CD,D2,BB 

[1379] 

670 

DATA 

El,Dl,CD,CF,BB,Dl,El,C3 

[1562] 

680 

DATA 

C9,BB,CD,D2,A4,21,FF,FF 

[869] 

690 

DATA 

ED,52,ED,5B,09,A5,44,4D 

[656] 

700 

DATA 

C5,D5,ED,62,CD,F9,BB,21 

[516] 

710 

DATA 

02,00,54,5C,CD,C3,BB,Dl 

[1389] 

720 

DATA 

CI,03,03,97,B8,20,03,C3 

[1528] 

730 

DATA 

A3,AO,C5,D5,EB,CD,56,A0 

[1008] 

740 

DATA 

EB,21,01,00,CD,F9,BB,21 

[1584] 

750 

DATA 

02,00,54,5C,CD,C3,BB,Dl 

[1389] 

760 

DATA 

C1,03,03,97,B8,20,C9,C3 

[1205] 

770 

DATA 

A3,AO,B7,C8,FE,05,DO,21 

[1385] 

780 

DATA 

01,00,54,5C,CD,3C,A4,D5 

[1160] 

790 

DATA 

E5,21,02,00,CD,D2,A4,CD 

[1350] 

800 

DATA 

06,B9,F5,D5,ED,62,CD,DC 

[1622] 

810 

DATA 

BD,El,E5,CD,56,AO,EB,21 

[1154] 

820 

DATA 

00,00,CD,DC,BD,21,00,00 

[804] 

830 

■DATA 

11,2E,A4,CD,9F,2F,E1,E5 

[1302] 

840 

DATA 

11,29,A4,CD,9F,2F,21,33 

[1656] 

850 

DATA 

A4,CD,73,2F,El,29,11,1F 

[602] 

860 

DATA 

A4,E5,CD,9F,2F,11,33,A4 

[734] 

870 

DATA 

EB,CD,04,36,21,FF,FF,Dl 

[1118] 

880 

DATA 

B7,ED,52,44,4D,C5,CD,98 

[1374] 

890 

DATA 

A2,18,07,C5,11,1F,A4,CD 

[1506] 

900 

DATA 

AD,A2,E5,21,29,A4,11,1F 

[1094] 

910 

DATA 

A4,01,05,00,ED,BO,21,1F 

[1456] 

920 

DATA 

A4,11,33 , A4 , CD, 77,35 , EB 

[1208] 

930 

DATA 

21,2E,A4,CD,A2,34,CD,D9 

[1243] 

940 

DATA 

2F,D1,CD,67,A2,11,1F,A4 

[1574] 

950 

DATA 

21,2E,A4,CD,A2,34,CD,D9 

[1243] 

960 

DATA 

2F,E5,CD,98,A2,EB,El,CD 

[2102] 
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970 DATA 67,A2,CI,21,08,00,09,44 [767] 

980 DATA 4D,97,B8,20,B6,CD,15, A4 [1912] 

990 DATA Fl,CD,OC,B9,C3,A3,AO,44 [1712] 

1000 DATA 4D,CD,56,AO,E5,E5,62,6B [1687] 

1010 DATA CD,56,AO,Fl,D5,F5,E5,C5 [1480] 

1020 DATA E5,C5,D5,D5,F5,D5,C5,E5 [1599] 

1030 DATA F5,E5,C5,06,04,78,ED,47 [1182] 

1040 DATA Dl,El,CD,DC,BD,Dl,El,CD [1935] 

1050 DATA DC,BD,ED,57,47,10,EE,C9 [1052] 

1060 DATA 21,2E,A4,11,1F,A4,01,05 [1541] 

1070 DATA 00,ED,BO,21,1F,A4,11,33 [790] 

1080 DATA A4,CD,77,35,EB,21,29,A4 [161] 

1090 DATA CD,9A,34,C3,D9,2F,CD,F2 [1286] 

1100 DATA A3,18,09,EB,B7,ED,52,37 [777] 

1110 DATA EO,F6,FF,C9,FE,02,D8,FE [1773] 

1120 DATA 06,DO,11,00,00,21,02,01 [1038] 

1130 DATA CD,3C,A4,D5,E5,21,03,01 [1507] 

1140 DATA CD,D2,A4,CD,06,B9,F5,ED [1923] 

1150 DATA 53,3A,A4,01,33,A4,D5,2A [1043] 

1160 DATA 09,A5,CD,BB,A2,F2,F9,A2 [1704] 

1170 DATA 2A,09,A5,22,3A,A4,01,2E [1590] 

1180 DATA A4,Dl,EB,11,33,A4,CD,9F [958] 

1190 DATA 2F,2A,09,A5,11,2E,A4,CD [1470] 

1200 DATA 9F,2F,3E,01,CD,45,33,21 [385] 

1210 DATA 5A,00,11,1A,A4,CD,9F,2F [1258] 

1220 DATA 50,59,CD,04,36,ED,5B,3A [1098] 

1230 DATA A4,21,FF,FF,ED,52,44,4D [1396] 

1240 DATA ED,62,22,24,A4,22,26,A4 [1282] 

1250 DATA 22,27,A4,21,24,A4,C5,E5 [859] 

1260 DATA EB,21,29,A4,CD,91,2F,21 [1525] 

1270 DATA 1F,A4,CD,91,2F,CD,53,33 [1350] 

1280 DATA 11,33,A4,CD,77,35,CD,D9 [1606] 

1290 DATA 2F,FC,56,A0,E5,21,29,A4 [1216] 

1300 DATA CD,49,33,11,2E,A4,CD,77 [614] 

1310 DATA 35,CD,D9,2F,FC,56,AO,EB [1455] 

1320 DATA El,CD,83,A3,El,11,1A,A4 [858] 

1330 DATA CD,A2,34,CI,03,97,B8,20 [1650] 

1340 DATA BD,CD,15,A4,Fl,CD,OC,B9 [613] 

1350 DATA C3,A3,AO,44,4D,CD,56,AO [1099] 

1360 DATA E5,E5,62,6B,CD,56,AO,Fl [1641] 

1370 DATA D5,F5,E5,C5,E5,60,69,CD [943] 

1380 DATA DC,BD,Dl,El,CD,DC,BD,Dl [820] 

1390 DATA El,CD,DC,BD,Dl,El,C3,DC [1897] 

1400 DATA BD,FE,02,D8,FE,06,DO,11 [580] 

1410 DATA 00,00,21,02,01,CD,3C,A4 [1391] 

1420 DATA D5,E5,21,03,01,C3,74,AO [1224] 

1430 DATA FE,02,D8,FE,06,DO,11,00 [1118] 

1440 DATA 00,21,02,01,CD,3C,A4,D5 [1534] 

1450 DATA E5,21,03,01,C3,6A,A1,B7 [1134] 

1460 DATA C8,FE,05,DO,21,01,00,54 [1315] 

1470 DATA 5C,CD,3C,A4,D5,E5,21,02 [1338] 

1480 DATA 00,CD,D2,A4,CD,F2,A3,C3 [1316] 

1490 DATA C7,Al,21,E2,BD,FD,21,9C [1305] 

1500 DATA A3,CD,OE,A4,FD,21,A6,A3 [1165] 

1510 DATA CD,OE,A4,FD,21,DA,Al,CD [897] 

1520 DATA OE,A4,FD,21,8F,A2,FD,75 [1307] 

1530 DATA 01,FD,74,02,C9,21,DC,BD [1244] 

1540 DATA 18,DB,00,00,00,00,00,00 [749] 

1550 DATA 00,00,00,00,00,00,00,00 [1005] 

1560 DATA 00,00,00,00,00,00,00,00 [1005] 

1570 DATA 00,00,00,00,00,00,00,00 [1005] 

1580 DATA 00,00,00,00,22,38,A4,ED [1007] 

1590 DATA 53,3A,A4,CD,CC,BB,D5,E5 [181] 

1600 DATA 2A,38,A4,ED,5B,3A,A4,F5 [1080] 

1610 DATA BD,28,4C,23,E5,23,BD,28 [1542] 

1620 DATA OF,97,BB,DD,7E,00,28,05 [1366] 

1630 DATA CD,E4,BB,18,03,CD,DE,BB [1386] 

1640 DATA El,Fl,F5,BD,28,31,23,BD [1780] 

1650 DATA F5,20,04,DD,2B,DD,2B,3E [1400] 

1660 DATA 01,BC,28,27,38,33,DD,56 [1456] 

1670 DATA 07,DD,5E,06,DD,66,05,DD [1003] 

1680 DATA 6E,04,Fl,20,04,DD,23,DD [586] 

1690 DATA 23,D5,E5,CD,CC,BB,CI,09 [1266] 

1700 DATA EB,CI,09,EB,CD,C9,BB,Fl [1576] 

1710 DATA El,Dl,C9,DD,56,09,DD,5E [1285] 

1720 DATA 08,DD,66,07,DD,6E,06,18 [1372] 

1730 DATA D9,3E,04,BC,28,OE,DD,56 [940] 

1740 DATA OB,DD,5E,OA,DD,66,09,DD [1905] 

1750 DATA 6E,08,18,C6,DD,56,OD,DD [2022] 

1760 DATA 5E,OC,DD,66,OB,DD,6E,OA [1611] 

1770 DATA 18,B8,BD,28,09,23,23,BD [791] 

1780 DATA 28,04,DD,2B,DD,2B,DD,56 [1406] 

1790 DATA 03,DD,5E,02,ED,53,09,A5 [1071] 

1800 DATA 97,BC,C8,DD,66,05,DD,6E [656] 

1810 DATA 04,22,09,A5,DD,46,07,DD [886] 
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1820 

DATA 

4E,06,ED,43,OB,A5,DD,46 

[766] 

1830 

DATA 

09,DD,4E,08,ED,43,0D,A5 

[954] 

1840 

DATA 

C9,00,00,00,00,00,00,FE 

[1615] 

1850 

DATA 

04,D8,FE,08,DO,F5,3E,C9 

[2246] 

1860 

DATA 

32,69,A3,3E,01,CD,97,BD 

[1902] 

1870 

DATA 

Fl, 11,00,00,21,04,04,CD 

[1351] 

1880 

DATA 

3C,A4,D5,E5,21,05,01,CD 

[1331] 

1890 

DATA 

D2,A4,CD,06,B9,F5,D5,E5 

[1515] 

1900 

DATA 

2A,OB,A5,11,33,A4,CD,9F 

[1106] 

1910 

DATA 

2F,2A,OD , A5,11,2E ,A4, CD 

[1175] 

1920 

DATA 

9 F,2 F,El,11,2 4,A4,CD,9 F 

[1028] 

1930 

DATA 

2F,CD,38,A3,CI,D5,E5,C5 

[1678] 

1940 

DATA 

CD,DC,BD,D1,21,01,00,B7 

[1652] 

1950 

DATA 

ED,52,44,4D,21,68,01,C5 

[1643] 

1960 

DATA 

CD,4F,AO,CD,06,B9,11,1A 

[1374] 

1970 

DATA 

A4,CD,9F,2F,C1,C5,11,1A 

[1042] 

1980 

DATA 

A4,21,24,A4,CD,A2,34,CD 

[1423] 

1990 

DATA 

38,A3,CD,E2,BD,CI,97,03 

[787] 

2000 

DATA 

B8,20,EA,El,Dl,CD,E2 , BD 

[1523] 

2010 

DATA 

3E,CD,32,69,A3,Fl,CD,OC 

[1116] 

2020 

DATA 

B9,C3,A3,A0,FE,07,C0,F5 

[1543] 

2030 

DATA 

DD,E5,CD,OF,A5,DD,El,Fl 

[1033] 

2040 

DATA 

32,38,A4,DD,66,07,DD,6E 

[1166] 

2050 

DATA 

06,06,01,2B,AF,BC,20,02 

[973] 

2060 

DATA 

BD,C8,10,F7,DD,74,07,DD 

[1280] 

2070 

DATA 

75,06,DD,66,09,DD,6E,08 

[1449] 

2080 

DATA 

06,01,2B,BC,20,02,BD,C8 

[1618] 

2090 

DATA 

10,F8,DD,74,09,DD,75,08 

[1199] 

2100 

DATA 

3A,38,A4,18,C2,FE,02,CO 

[1412] 

2110 

DATA 

DD,7E,00,32,B2,A5,DD,7E 

[906] 

2120 

DATA 

02,32,C9,A5,C9,AF,C3,59 

[1685] 

2130 

DATA 

BC,3E,01,18,F9,3E,03,18 

[1076] 

2140 

DATA 

F5,3E,02,18,F1,00,00,00 

[1320] 

1 REM Version fuer 6128 

[991] 

10 MEMORY 

&9 6AF 

[728] 

20 FOR adr=&96B0 TO &9F93 STEP 8 

[1599] 

30 

FOR 

i=adr TO adr+ 7 

[1011] 

40 

READ b$ 

[315] 

50 

byte=VAL("&"+b$) 

[465] 

60 

POKE i,byte 

[294] 

70 

NEXT 

i 

[375] 

80 NEXT adr 

[547] 

90 SAVE"q2-6128.bin",b,&96B0,&8E3 

[1883] 

100 

END 


[110] 

110 

DATA 

00,CD,A4,98,01,C7,96,21 

[978] 

120 

DATA 

C3,96,CD,Dl,BC,3E,C9,32 

[1457] 

130 

DATA 

BO,96,C9,00,00,00,00,14 

[1085] 

140 

DATA 

97,C3,19,BD,C3,AD,97,C3 

[1096] 

150 

DATA 

DF,97,C3,2A,99,C3,CB,98 

[1966] 

160 

DATA 

C3,A4,98,C3,FA,97,C3,5E 

[1208] 

170 

DATA 

98,C3,6D,98,C3,18,9A,C3 

[1709] 

180 

DATA 

24,9A,C3,E8,9C,C3,4F,9C 

[1172] 

190 

DATA 

C3,37,9C,C3,43,9C,C3,F2 

[1152] 

200 

DATA 

99,C3,F7,9C,C3,84,9D,C3 

[1068] 

210 

DATA 

20,9E,C3,3D,9E,C3,CB,9E 

[1392] 

220 

DATA 

C3,C3,9E,C3,69,9E,C3,72 

[1715] 

230 

DATA 

9E,C3,14,9D,46,52,41,4D 

[1516] 

240 

DATA 

C5,47,50,45,CE,47,50,41 

[778] 

250 

DATA 

50,45,D2,47,57,49,4E,44 

[1248] 

260 

DATA 

4F,D7,4F,52,49,47,49,CE 

[1345] 

270 

DATA 

52,47,D7,53,43,52,45,45 

[1302] 

280 

DATA 

CE,53,57,41,50,2E,4F,CE 

[123] 

290 

DATA 

53,57,41,50,2E,4F,46,C6 

[863] 

300 

DATA 

43,4F,50,D9,5A,4F,4F,CD 

[1528] 

310 

DATA 

53,57,41,DO,43,4F,50,59 

[1277] 

320 

DATA 

53,43,D2,5A,4F,4F,4D,53 

[962] 

330 

DATA 

43,02,53,57,41,50,53,43 

[1177] 

340 

DATA 

D2,43,4C,C7,53,50,49,45 

[1254] 

350 

DATA 

47,45,CC,57,49,4E,44,4F 

[1090] 

360 

DATA 

D7,57,2E,53,45,D4,57,4C 

[1064] 

370 

DATA 

41,45,4E,47,C5,53,53,57 

[1406] 

380 

DATA 

41,DO,53,43,4F,50,D9,54 

[1020] 

390 

DATA 

43,4F,50,D9,54,53,57,41 

[1715] 

400 

DATA 

DO,4C,41,53,53,CF,00,DF 

[1180] 

410 

DATA 

A3,97,C9,7 2,DD,FD,DF, AA 

[884] 

420 

DATA 

97,C9,9C,DD,FD,FE,01,28 

[2109] 

4 30 

DATA 

28,FE,02,CO,CD,C5,97,2B 

[1350] 

440 

DATA 

DO,B8,CC,D9,97,DD,7E,00 

[1151] 

450 

DATA 

CD,2C,BC,77,C9,DD,5E,02 

[1533] 

460 

DATA 

CD,55,99,11,11,00,19,3A 

[899] 

470 

DATA 

Fl,99,47,DD,7E,02,FE,08 

[1531] 
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480 DATA C9 ,DD,7E, 00,C3, DE, BB,FE [695] 

490 DATA 01,28, 0D, FE, 02,CO,CD,C5 [1378] 

500 DATA 97,D0,B8,CC,F0,97,18,CD [778] 

510 DATA DD,7E,00,C3,E4,BB,00,00 [814] 

520 DATA 00, 00,FE,01,28, 18,FE, 02 [1108] 

530 DATA CO,DD, 7E,00,DD, 23,DD,23 [1917] 

540 DATA B7,20, OB, CD,22, 98,D8, 32 [1156] 

550 DATA C6,B7,22,C4,B7,C9,CD,22 [1154] 

560 DATA 98,D8 , F5 ,CD, 05 , BC,Fl , C3 [497] 

570 DATA 08,BC,DD,7E,00 , B7 , 28, OA [917] 

580 DATA 3E,C0,11,F6,97,01,F8,97 [1037] 

590 DATA 18 , 13 ,ED, 5B ,5E,AE,21,FF [380] 

600 DATA 3F,B7,ED,52 , D8 , 3E, 40, 11 [1503] 

610 DATA F8,97,01,F6,97,F5,C5,47 [850] 

620 DATA CD ,OB, BC ,B8,C1,28,0D, EB [709] 

630 DATA 73, 23, 72,Fl,B7,69, 60, 5E [1326] 

640 DATA 23,56,EB,C9,F1,C9,11,7E [1219] 

650 DATA 98, 06,81, 21, 73,98,AF,32 [1541] 

660 DATA 77 , 98 , C3,D7 , BC,21 , 73 , 98 [1745] 

670 DATA C3,DD,BC,00,00,00,00,00 [1385] 

680 DATA 81,7E, 98,00, 00,00,21,7D [1054] 

690 DATA 98,7E,2F,77,B7,3A,C6,B7 [1393] 

700 DATA 20 ,OE ,06,C0,B8,78, 2A, C4 [1631] 

710 DATA B7,28,0E,2A,F6,97,18,09 [1515] 

720 DATA 06,40,B8, 78 , 28, FO,2A, F8 [1343] 

730 DATA 97 , C3,1F , BD, B7, 20, OD, 06 [1779] 

740 DATA 08, 11,61,99,C5,CD, C2,98 [1464] 

750 DATA CI , 10 ,F9, C9 , FE,01,CO , DD [1577] 

760 DATA 7E,00,FE,08,DO,5F, CD, 55 [1639] 

770 DATA 99, EB,21,93, B6,01, 12, 00 [1086] 

780 DATA ED,BO,C9, FE, 03, 06, 04,28 [1255] 

790 DATA OB,06,08,FE,05, 28,05, FE [1126] 

800 DATA 07 , CO ,06, OC,C5 , DD,23,10 [1583] 

810 DATA FC,CI,DD,7E,00, FE,08, DO [1352] 

820 DATA 21 , Fl , 99 ,4E, C5, CD, 30 ,99 [2183] 

830 DATA CI, 78,FE,08, C5 ,28, OD,CD [1540] 

840 DATA 14,99,CD,C9 , BB , CI , 78,FE [1378] 

850 DATA 04, 28, OE, C5,CD,14, 99, CD [1238] 

860 DATA CF,BB , CD,1 4, 99 , CD,D2,BB [1827] 

870 DATA CI, 79, 18,IC,DD,2B,DD,56 [1420] 

880 DATA 00, DD, 2B,DD , 5E , 00, DD, 2B [954] 

890 DATA DD, 66, 00, DD, 2B,DD,6E, 00 [712] 

900 DATA C9, 71, FE,01, CO,DD,7E,00 [1657] 

910 DATA FE, 08, DO,21,Fl,99, 46, B8 [1062] 

920 DATA C8,77,58, CD, 55, 99, EB,21 [1638] 

930 DATA 93,B6,E5,01,12,00,C5,ED [954] 

940 DATA BO,3A, Fl,99,5F, CD,55,99 [2066] 

950 DATA CI,Dl, ED, BO,C9 , 21,12,00 [444] 

960 DATA 54, CD,9F, 97,11, 61,99, 19 [1395] 

970 DATA C9, 00,00, 00, 00,00,00, 00 [1564] 

980 DATA 00,00,00,00,00,00,00,00 [1005] 

990 DATA 00,00,00,00,00,00,00,00 [1005] 

1000 DATA 00,00,00,00,00,00,00,00 [1005] 

1010 DATA 00,00,00,00,00,00,00,00 [1005] 

1020 DATA 00,00,00,00,00,00,00,00 [1005] 

1030 DATA 00,00,00,00,00,00,00,00 [1005] 

1040 DATA 00,00,00,00,00,00,00,00 [1005] 

1050 DATA 00,00,00,00,00,00,00,00 [1005] 

1060 DATA 00,00,00,00,00,00,00,00 [1005] 

1070 DATA 00,00,00,00,00,00,00,00 [1005] 

1080 DATA 00,00,00,00,00,00,00,00 [1005] 

1090 DATA 00,00,00,00,00,00,00,00 (1005) 

1100 DATA 00,00,00,00,00,00,00,00 [1005] 

1110 DATA 00,00,00,00,00,00,00,00 [1005] 

1120 DATA 00,00,00,00,00,00,00,00 [1005] 

1130 DATA 00,00,00,00,00,00,00,00 [1005] 

1140 DATA 00,00,00,00,00,00,00,00 [1005] 

1150 DATA 00,00, B7,CA,DB, BB, FE,02 [1575] 

1160 DATA 38,08,CO,CD,DF,97,DD,23 [487] 

1170 DATA DD,23,DD,7E, 00, FE,08,DO [1547] 

1180 DATA 21,Fl,99,56, D5, CD,30,99 [1786] 

1190 DATA CD , DB , BB,D1,7A,C3,30,99 [1156] 

1200 DATA FE,07,DO,21, 01, 01,22,2B [1102] 

1210 DATA 9C,22,2D,9C,DD,E5, FD, El [1482] 

1220 DATA FE ,02, CA,EB,9B,FE,08,32 [933] 

1230 DATA 35,9C , CC ,E6,9B, DD,5E, 04 [1378] 

1240 DATA DD, 56, 05 , CB,3A,CB,1B , 3A [863] 

1250 DATA 2B,9C,32,30,9C,47,21,FF [1518] 

1260 DATA FF, B7,ED,52,10,FC,E5,DD [1557] 

1270 DATA 5E,06, DD,56,07, CD,C6, 9B [1253] 

1280 DATA 21,FF,FF,3A,2D,9C,32,2F [876] 

1290 DATA 9C,47,B7,ED,52,10,FC,E5 [1480] 

1300 DATA DD,6E, 00,DD, 66,01,DD,5E [1210] 

1310 DATA 02, DD, 56,03,CD,DA,9B,22 [1699] 

1320 DATA C2,9B,22,33,9C,ED,43,C4 [1467] 
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1330 DATA 9B,ED,43,31,9C,3A,35,9C [1473] 

1340 DATA DD,6E,08,DD,66,09,DD,5E [1000] 

1350 DATA OA,DD,56,OB,FE,08,28,OE [1103] 

1360 DATA FE,06,28,OA,FE,04,28,03 [543] 

1370 DATA El,El,C9,CD,C6,BB,AF,30 [1604] 

1380 DATA OD,E5,D5,3E,02,DD,21,DO [1715] 

1390 DATA 9C,CD,FA,97,Dl,El,CD,DA [357] 

1400 DATA 9B,Dl,D5,CD,06,B9,32,61 [1523] 

1410 DATA 9B,E5,C5,D5,E5,C5,CD,65 [1088] 

1420 DATA 9B,2A,33,9C,ED,4B,31,9C [1517] 

1430 DATA 37,3F,30,1A,32,35,9C,CD [1013] 

1440 DATA 65,9B,D1,E1,E5,D5,C5,4B [2012] 

1450 DATA CD,A8,9B,47,CD,E8,BD,3A [1589] 

1460 DATA 35,9C,CI,2A,33,9C,CD,A8 [1560] 

1470 DATA 9B,47,CD,E8,BD,11,01,00 [813] 

1480 DATA CB,BB,CD,50,9F,22,33,9C [1448] 

1490 DATA ED,43,31,9C,C1,21,2F,9C [1620] 

1500 DATA 35,El,20,OF,3A,2E,9C,16 [1208] 

1510 DATA 00,5F,CD,50,9F,3A,2D,9C [1595] 

1520 DATA 32,2F,9C,D1,13,AF,BA,20 [1845] 

1530 DATA A2,3A,2D,9C,32,2F,9C,2A [1277] 

1540 DATA C2,9B,ED,4B,C4,9B,16,01 [1209] 

1550 DATA CB,BA,CD,64,9F,22,C2,9B [1414] 

1560 DATA 22,33,9C,ED,43,31,9C,21 [947] 

1570 DATA 30,9C,35,C1,E1,20,0D,3A [1140] 

1580 DATA 2C,9C,57,CD,64,9F,3A,2B [1717] 

1590 DATA 9C, 32,30,9C, AF., Dl, E3,23 [920] 

1600 DATA BC,E3,D5,C2,CI,9A,Dl,El [1099] 

1610 DATA 3E,O0,C3,0C,B9,7E,D5,ll [1308] 

1620 DATA 08,00,OF,CB,12,CB,09,38 [828] 

1630 DATA 02,CB,1A,1D,20,F4,7A,CD [1388] 

1640 DATA 7C,9B,D1,C9,57,3A,C3,B7 [1004] 

1650 DATA FE,01,7A,DO,OF,0F,CE,00 [646] 

1660 DATA 0F,9F,E6,06,AA,C9,3A,C3 [1706] 

1670 DATA B7,FE,01,3E,88,C8,3E,80 [2041] 

1680 DATA DO,3E,AA,C9,C5,47,CD,8E [1796] 

1690 DATA 9B,4F,78,CD,66,9B,C1,C9 [1131] 

1700 DATA C5,D5,CD,7C,9B,5F,06,08 [1508] 

1710 DATA CD,8E,9B,4F,CB,OB,17,CB [1089] 

1720 DATA 09,38,02,CB,03,10,F5,Dl [1501] 

1730 DATA CI,C9,00,00,00,00,CD,11 [1116] 

1740 DATA BC,2E,04,38,05,2E,02,28 [1053] 

1750 DATA 01,C9,26,00,EB,CD,A6,97 [1065] 

1760 DATA EB,C9,CB,3C,CB,ID,E5,CD [1642] 

1770 DATA C6,9B,El,C3,ID,BC,11,OC [904] 

1780 DATA 00,FD,19,21,2B,9C,FD,7E [1963] 

1790 DATA 01,CB,7F,FD,7E,00,F5,47 [1106] 

1800 DATA B7,20,01,04,Fl,78,28,08 [1292] 

1810 DATA 36,01,23,ED,44,77,18,04 [1027] 

1820 DATA 77,23,36,01,23,FD,7E,03 [655] 

1830 DATA CB,7F,FD,7E,02,F5,47,B7 [704] 

1840 DATA 20,01,04,Fl,78,28,07,36 [898] 

1850 DATA 01,23,ED,44,77,C9,77,23 [1221] 

1860 DATA 36,01,C9,01,01,01,01,00 [875] 

1870 DATA 00,00,00,00,00,00,00,CB [1013] 

1880 DATA 47,C8,CD,8E,9C,CD,24,9A [2534] 

1890 DATA C3,D4,9C,CB,47,C8,CD,8E [1804] 

1900 DATA 9C,CD,E8,9C,C3,D4,9C,CB [1342] 

1910 DATA 47,C8,FE,01,28,08,CD,8E [2088] 

1920 DATA 9C,CD,18,9A,18,76,DD,7E [1081] 

1930 DATA 00,O6,C0,2A,F8,97,16,40 [1008] 

1940 DATA FE,01,28,06,42,2A,F6,97 [731] 

1950 DATA 16,CO,E5,CD,OB,BC,B8,20 [1313] 

1960 DATA 01,E3,E1,22,F8,97,22,F6 [1048] 

1970 DATA 97,CD,05,BC,60,2E,00,5D [1378] 

1980 DATA 01,00,40,ED,BO,C9,3D,F5 [653] 

1990 DATA 3A,C6,B7,FE,CO,3E,01,28 [1393] 

2000 DATA 01,AF,32,D3,9C,3E,37,32 [1370] 

2010 DATA A6,9A,DD,E5,DD,7E,00,CB [982] 

2020 DATA 3F,3E,00,3F,17,32,D2,9C [1465] 

2030 DATA F5,3E,02,DD,21,DO,9C,DD [1161] 

2040 DATA E5,CD,FA,97,DD,El,Fl,CB [822] 

2050 DATA 3F,3E,00,3F,17,32,D2,9C [1465] 

2060 DATA DD,El,Fl,DD,23,DD,23,C9 [2117] 

2070 DATA 00,00,01,00,3E,AF,32,A6 [1017] 

2080 DATA 9A,3A,D3,9C,32,D2,9C,DD [1569] 

2090 DATA 21,DO,9C,3E,02,C3,FA,97 [1400] 

2100 DATA 47,AF,32,Dl,9A,78,CD,18 [1490] 

2110 DATA 9A,3E,3F,32,Dl,9A,C9,FE [990] 

2120 DATA 02,CO,DD,7E,00,21,31,9B [1516] 

2130 DATA 36,BA,B7,28,02,36,FA,DD [1447] 

2140 DATA 7E,02,21,F9,9A,36,BB,B7 [876] 

2150 DATA C8,36,FB,C9,FE,01,20,1F [1840] 

2160 DATA 11,4F,9D,DD,7E,00,B7,21 [1185] 

2170 DATA 49,9D,28,01,EB,11,EO,9A [1128] 
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2180 DATA 01,03,00,C5,E5,ED,BO,El 

[1570] 


40 READ b$ 

[315] 

2190 DATA CI,11,EE,9A,ED,B0,C9,FE 

[1141] 


50 byte=VAL("&"+b$) 

[465] 

2200 DATA 02,CO,DD,7E,00,DD,23,DD 

[2044] 


60 POKE i,byte 

[294] 

2210 DATA 23,32,53,9D,11,4C,9D,18 

[1660 ] 


70 NEXT i 

[375] 

2220 DATA D2,CD,A8,9B,CD,52,9D,CD 

[1423] 


80 NEXT adr 

[547] 

2230 DATA 5E , 9D,FE,00,CA,A8 , 9B,E3 

[1729] 


90 SAVE" t-6128.bin" ,b,&87E0,&7B1 

[1644] 

2240 DATA 23,23,23,23,E3,C9,B7,C2 

[2032] 


100 END 

[110] 

2250 DATA A8,9B,18,F3,00,00,00,00 

[2168] 


110 DATA CD,06,B9,FS,3E,01,CD,OE 

[1222] 

2260 DATA 00,00,00,00,00,00,00,00 

[1005] 


120 DATA BC,3E,01,CD,90,BB,CD,55 

[462] 

2270 DATA 00,00,00,00,00,00,00,00 

[1005] 


130 DATA OD,CD,23,07,CD,FC,06,21 

[2092] 

2280 DATA 00,00,00,00,00,00,00,00 

[1005] 


140 DATA 88,06,CD,FC,06,CD,39,15 

[994] 

2290 DATA 00,00,00,00,FE,01,CO,DD 

[1377] 


150 DATA 3C,CD,9F,BB,CD,BC,8C,3E 

[1982] 

2300 DATA 7E,00,CD,F7,9D,CB,78,20 

[1464] 


160 DATA 03,CD,90,BB,DD,21,El,88 

[1623] 

2310 DATA 4C,CB,B8,F5,D5,C5,CD,69 

[1899] 


170 DATA 3E,02,CD,D3,8A,21,A5,88 

[1528] 

2320 DATA BB,CD,OB,9E,78,CB,21,CB 

[1255] 


180 DATA CD,97,88,3E,02,CD,90,BB 

[1207] 

2330 DATA 21,CB,21,59,E5,21,00,00 

[890] 


190 DATA 3E,02,DD,21,El,88,DD,77 

[1436] 

2340 DATA 54,19,10,FD,EB,El,E3,47 

[1705] 


200 DATA 00,CD,D3,8A,CD,94,88,21 

[1220] 

2350 DATA AF,ED,52,EB,El,BB,20,28 

[754] 


210 DATA 01,27,CD,75,BB,CD,94,88 

[1739] 

2360 DATA BA,20,25,C5,CD,1A,BC,CI 

[957] 


220 DATA 21,06,02,CD,75,BB,CD,OC 

[1123] 

2370 DATA Dl,DD,68,DD,45,E5,1A,ED 

[1497] 


230 DATA 8D,3E,A4,CD,5D,BB,3E,01 

[2143] 

2380 DATA 47,7E,12,ED,57,77,13,2C 

[1121] 


240 DATA CD,90,BB,CD,94,88,3C,01 

[1603] 

2390 DATA CC,12,9F,10,Fl,El,CD,IC 

[1229] 


250 DATA OB,OB,CD,32,BC,3E,02,01 

[1823] 

2400 DATA 9F,OD,20,E7,Fl,C3,B4,BB 

[1209] 


260 DATA 1A,1A,CD,32,BC,3E,03,01 

[1164] 

2410 DATA Dl,18,F9,21,64,9D,47,04 

[1691] 


270 DATA 06,06,CD,32,BC,AF,4F,47 

[1446] 

2420 DATA 23,23,23,23,10,FA,2B,46 

[1973] 


280 DATA C5 , CD,32, BC, CI,CD,38 , BC 

[893] 

2430 DATA 2B,4E,2B,56,2B,5E,C9,CD 

[880] 


290 DATA AF,CD,9F,BB,CD,42,OD,01 

[1441 ] 

2440 DATA E3,9D,E5,CD,B4,BB,F5,AF 

[1582] 


300 DATA E8,88,21,E4,88,CD,Dl,BC 

[914] 

2450 DATA BA,20,05,BB,20,02,CB,F8 

[576] 


310 DATA 3E,C9,32,E0,87,21,07,02 

[1654] 

2460 DATA Fl,El,C9,7A,94,47,04,7B 

[1788] 


320 DATA CD,75,BB,3E,01,CD,90,BB 

[1251] 

2470 DATA 95,4F,OC,3A,C3,B7,FE,02 

[141] 


330 DATA Fl,C3,OC,B9,2A,A3,88,7E 

[1322] 

2480 DATA C8,CB,20,B7,CO,CB,20,C9 

[2091] 


340 DATA 23,22,A3,88,B7,C8,CD,FE 

[984] 

2490 DATA FE,03,CO,DD , 7E,04,CD,E3 

[70] 


350 DATA 13,18,F4,00,00,20,50,20 

[767] 

2500 DATA 9D,DD,56,03,DD,5E,02,73 

[566] 


360 DATA 72,20,6F,20,66,20,69,20 

[868] 

2510 DATA 23,72,DD,56,01,DD,5E,00 

[1676] 


370 DATA 20,52,20,53,20,58,00,20 

[1128] 

2520 DATA 23,73,23,72,C9,FE,02,CO 

[1108] 


380 DATA 31,2E,33,00,F2,FB,00,20 

[1251] 

2530 DATA DD,7E,02,CD,F7,9D,F5,CD 

[897] 


390 DATA 31,39,38,35,20,26,20,31 

[997] 

2540 DATA 69,BB,CD,OB,9E,58,69,26 

[1310] 


400 DATA 39,38,37,20,62,79,20,4B 

[872] 

2550 DATA 00,54,CD,9F,97,11,08,00 

[1153] 


410 DATA 6C,61,75,73,20,4B,72,65 

[1666] 

2560 DATA CD,9F,97,EB,DD,6E,00,DD 

[1158] 


420 DATA 6D,65,72,00,2A,4F,4B,2A 

[1280] 

2570 DATA 66,01,73,23,72,Fl,C3,B4 

[1178] 


430 DATA 00,03,00,01,00,00,00,00 

[1175] 

2580 DATA BB,CD,OB,9F,CD,72,9E,C3 

[1165] 


440 DATA 38,89,C3,9C,BB,C3,Dl,89 

[1796] 

2590 DATA FF,9E,FE,06,CO,DD,6E,OA 

[1498] 


450 DATA C3,CD,89,C3,97,8A,C3,D3 

[1587] 

2600 DATA 2D,DD,66,08,25,CD,1A,BC 

[778] 


460 DATA 8A,C3,BC,8C,C3,0C,8D,C3 

[1397] 

2610 DATA E5,DD,6E,06,DD,66,04,2D 

[836] 


470 DATA A0,8A,C3,6E,8D,C3,21,8A 

[1361] 

2620 DATA 25,CD,1A,BC,Dl,DD,46,02 

[1695] 


480 DATA C3,7E,8A,C3,85,8A,C3,A9 

[1241] 

2630 DATA DD,4E,00,CD,13,9E,CB,21 

[573] 


490 DATA 8D,C3,1D,8E,C3,B6,8A,CF 

[787] 

2640 DATA CB,21,CB,21,DD,68,DD,45 

[866] 


500 DATA E1,94,C3,18,BB,C3,93,8D 

[1344] 

2650 DATA E5,D5,7E,ED,47,1A,77,ED 

[1278] 


510 DATA C3,28,8A,C3,32,8A,C3,4D 

[1209] 

2660 DATA 57,12,EB,2C,CC,12,9F,EB 

[1360] 


520 DATA 8A , C3 , 55,8C , C3,6D,8F,C3 

[787] 

2670 DATA 2C,CC,12,9F,10,EC,El,CD 

[1509] 


530 DATA 7C,8F,C3,86,8F,C3,81,8F 

[2022] 

2680 DATA IC,9F,EB,El,CD,IC,9F,OD 

[2047] 


540 DATA 49,4E,56,45,52,D3,53,43 

[1447] 

2690 DATA 20,DC,C9,CD,OB,9F,CD,CB 

[1588] 


550 DATA 52,4F,4C,4C,2E,D5,53,43 

[848] 

2700 DATA 9E,18,34,FE,07,C0,DD,7E 

[1023] 


560 DATA 52,4F,4C,4C,2E,C4,54,52 

[1284] 

2710 DATA 00,F5,CD,EE,9E,DD,6E,OC 

[1781] 


570 DATA 41,4E,53,50,AE,53,43,48 

[837] 

2720 DATA 2D,DD,66,OA,25,CD,1A,BC 

[1777] 


580 DATA 52,49,46,D4,53,2E,4F,CE 

[942] 

2730 DATA Fl,E5,2F,E6,01,CD,EE,9E 

[2033] 


590 DATA 54,2E,4F,46,C6,48,4F,4D 

[1106] 

2740 DATA DD,23,DD,23,18,93,32,D2 

[772] 


600 DATA C5,54,53,50,45,45,C4, 53 

[836] 

2750 DATA 9C,DD,E5,DD,21,D0,9C,3E 

[1047] 


610 DATA 43,52,4F,4C,CC,43,41,50 

[1559] 

2760 DATA 02,CD,FA,97,DD,El,C9,01 

[1365] 


620 DATA D3,53,48,49,46,D4,44,49 

[1383] 

2770 DATA 7E,12,21,A9,9E,70,21,A2 

[2027] 


630 DATA CE,41,53,43,49,C9,43,55 

[623] 

2780 DATA 9E,71,C9,01,00,00,18,F2 

[1355] 


640 DATA 52,53,4F,D2,42,45,4C,CC 

[1141] 

2790 DATA 2C,CO,24,7C,E6,07,CO,7C 

[1489] 


650 DATA 57,41,49,54,4B,45,D9,50 

[570] 

2800 DATA D6,08,67,C9,7C,C6,08,67 

[940] 


660 DATA 52,49,4E,D4,52,45,41,C4 

[357] 

2810 DATA E6,38,C0,7C,D6,40,67,7D 

[1136] 


670 DATA 52,45,41,44,54,58,D4,43 

[1142] 

2820 DATA C6,50,6F,DO,18,E4,7C,D6 

[1712] 


680 DATA 48,47,53,54,D2,43,48,41 

[1018] 

2830 DATA 08,67,E6,38,FE,38,CO,7C 

[1510] 


690 DATA 52.2E,52,4F,D4,4C,49,47 

[352] 

2840 DATA C6,40,67,7D,D6,50,6F,D0 

[911] 


700 DATA 48,D4,46,45,54,D4,55,4E 

[867] 

2850 DATA 18,04,7D,2D,B7,CO,7C,25 

[2147] 


710 DATA 54,AE,4E,4F,52,4D,41,CC 

[1823] 

2860 DATA E6,07,CO,7C,C6,08,67,C9 

[1627] 


720 DATA 00,00,00,00,00,OE,00,18 

[1059] 

2870 DATA 7B,B7,28,10,CB,7B,20,1A 

[2462] 


730 DATA 02,OE,01,B7,C8,FE,04,D0 

[2525] 

2880 DATA 41,CB,09,30,04,2C,CC,12 

[882] 


740 DATA FE,03,F5,28,04,DD,2B,DD 

[656] 

2890 DATA 9F,ID,20,F5,7A,B7,C8,CB 

[1484] 


750 DATA 2B,DD,7E,04,FE,08,30,28 

[1659] 

2900 DATA 7A,20,IC,42,CD,2E,9F,10 

[1387] 


760 DATA CD,B4,BB,CD,69,BB,30,20 

[2244] 

2910 DATA FB,C9,CB,BB,7B,B7,28,EC 

[1577] 


770 DATA Fl,DD,7E,00,28,03,CD,99 

[1422] 

2920 DATA 43,CB,01 *30,06,7D,2D,B7 

[501] 


780 DATA BB,E6,1F,CD,2C,BC,DD,46 

[1066] 

2930 DATA CC,46,9F,10,F4,18,DD,CB 

[936] 


790 DATA 02,C5,E5,D5,F5,41,CD,50 

[1639] 

2940 DATA BA,7A,B7,C8,42,CD,IC,9F 

[1137] 


800 DATA BC,Fl,Dl,E1,C1,10,F2,C9 

[775] 

2950 DATA 10,FB,C9,00,00,00,00,00 

[1554 ] 


810 DATA Fl,21,4D,BC,22,07,8A,CD 

820 DATA Fl,89,21,50,BC,22,07,8A 

[1101] 

[1715] 

[1861] 

[1112] 




840 DATA CD,75,8A,CO,CD,60,BB,77 

1 REM Version fuer 6128 

10 MEMORY &87DF 

20 FOR adr=&87E0 TO &8F91 STEP 8 

30 FOR i=adr TO adr+ 7 

[991] 

[734] 

[1573] 

[1011] 


850 DATA 23,C9,CD,75,8A,CO,7E,B7 

860 DATA C8,23,5E,23,56,EB,47,CD 

870 DATA 2C,8A,E5,DF,4A,8A,El,10 

880 DATA F6,C9,1E,15,FE,FE,02,CO 

[1423] 

[1824] 

[1618] 

[1880] 

Llsting: NEWSPAPER 



Llsting: NEWSPAPER 



40 PC 10/11 *90 






























Programm | 


890 DATA CD,77,8A,46,C5,23,5E,23 [1198] 

900 DATA 56,D5,E5,DD,6E,02,DD,66 [315] 

910 DATA 03,7E,23,5E,23,56,E3,72 [1402] 

920 DATA 2B,73,2B,77,El,Dl,CI,72 [2016] 

930 DATA 2B,73,2B,70,C9,FE,01,DD [1788] 

940 DATA 6E,00,DD,66,01,C9,21,32 [1414] 

950 DATA B6,06,80,18,05,21,31,B6 [934] 

960 DATA 06,FF,FE,01,CO,DD,7E,00 [1194] 

970 DATA B7,78,20,01,2F,77,C9,FE [850) 

980 DATA 01,CO,DD,7E,00,C3,9F,BB [1025] 

990 DATA FE,01,38,OF,CO,DD,7E,00 [1327] 

1000 DATA CD,B4,BB,F5,CD,B3,8A,Fl [1595] 

1010 DATA C3,B4,BB,CF,39,95,FE,02 [1250] 

1020 DATA CO,FE,01,DD,7E,00,28,OC [1201] 

1030 DATA B7,F5,CC,7E,BB,F1,C4,7B [1819] 

1040 DATA BB,DD,7E,02,B7,CA,84,BB [418] 

1050 DATA C3,81,BB,FE,03,DO,FE,01 [972] 

1060 DATA D8,28,0A,DD,7E,00,DD,23 [555] 

1070 DATA DD,23,32,EE,8A,DD,7E,00 [747] 

1080 DATA 32,ED,8A,C9,00,02,02,E5 [995] 

1090 DATA CD,1A,BC,22,B4,8B,El,3A [838] 

1100 DATA EC,8A,B7,28,72,E5,21,C9 [1337] 

1110 DATA 89,11,51,8C,01,04,00,ED [852] 

1120 DATA BO,AF,32,68,8B,3A,C3,B7 [1424] 

1130 DATA 32,50,8C,FE,01,3A,ED,8A [1145] 

1140 DATA 38,30,28,16,FE,02,38,2A [922] 

1150 DATA 21,33,8D,06,01,28,12,FE [1062] 

1160 DATA 04,21,38,8D,06,00,28,09 [894] 

1170 DATA 18,18,FE,02,21,3D,8D,18 [1535] 

1180 DATA F3,11,C9,89,7E,23,32,68 [1426] 

1190 DATA 8B,78,01,04,00,ED,BO,32 [1578] 

1200 DATA C3,B7,El,CD,6F,8B,F5,21 [1428] 

1210 DATA 51,8C,11,C9,89,01,04,00 [1249] 

1220 DATA ED,BO,3A,50,8C,32,C3,B7 [1078] 

1230 DATA 2A,16,Bl,7C,B5,28,06,3E [2521] 

1240 DATA 00,84,32,17,Bl,Fl,C9,3A [1951] 

1250 DATA 2F,B7,11,38,B7,E5,D5,CD [1345] 

1260 DATA B2,8B,CD,92,8B,Dl,E1,30 [1537] 

1270 DATA 01,C0,3A,30,B7,D5,CD,B2 [1968] 

1280 DATA 8B,D1,06,08,1A,2F,12,13 [1281] 

1290 DATA 10,FA,OE,00,79,CD,A5,BB [1260] 

1300 DATA CD,5F,8C,11,38,B7,06,08 [1026] 

1310 DATA 1A,BE,20,09,23,13,10,F8 [1257] 

1320 DATA 79,FE,20,37,C9,0C,20,E4 [611] 

1330 DATA AF,C9,4F,21,00,00,CF,2E [586] 

1340 DATA 8F,E5,CD,A5,BB,CD,5F,8C [1519] 

1350 DATA EB,3A,C3,B7,FE,01,21,3D [1448] 

1360 DATA 8C,3E,04,28,OC,21,44,8C [1513] 

1370 DATA 3E,08,30,05,3E,02,21,38 [1106] 

1380 DATA 8C,32,03,8C,22,07,8C,E1 [1044] 

1390 DATA CD,6A,OB,OE,08,3A,EE,8A [1115] 

1400 DATA 47,C5,C5,D5,E5,1A,5F,06 [1273] 

1410 DATA 08,3A,ED,8A,57,AF,4F,C5 [1711] 

1420 DATA 42,B7,CB,7B,28,01,37,CB [1641] 

1430 DATA 11,3C,FE,04,20,08,CD,3D [1516] 

1440 DATA 8C,AF,4F,10,EC,04,10,E9 [979] 

1450 DATA 32,19,8C,79,CI,CB,03,4F [1480] 

1460 DATA 3E,00,10,DB,El,CD,1F,OC [1698] 

1470 DATA Dl,CI,05,20,C5,13,CI,OD [1367] 

1480 DATA 20,BF,3A,ED,8A,47,05,C8 [1760] 

1490 DATA C5,CD,1E,15,C1,10,F9,C9 [1181] 

1500 DATA 79,07,07,Bl,4F,79,07,07 [1040] 

1510 DATA 07,07,B1,4F,D5,C5,EB,CD [1263] 

1520 DATA 77,13,CD,05,OC,CI,Dl,C9 [1817] 

1530 DATA 00,00,00,00,00,FE,01,CO [1243] 

1540 DATA DD, 7E, 00,32,61,8C,C9,F5 [-1131 ] 

1550 DATA 3E,00,B7,28,30,D5,C5,11 [1778] 

1560 DATA B4,8C,D5,01,08,00,ED,BO [782] 

1570 DATA Dl,06,08,FE,02,28,20,21 [H47] 

1580 DATA OE,1F,38,03,21,06,17,22 [1305] 

1590 DATA 88,8C,62,6B,48,06,08,CB [583] 

1600 DATA 06,17,23,10,FA,F5,41,62 [971] 

1610 DATA 6B,10,Fl,18,11,Fl,C9,62 [798] 

1620 DATA 6B,48,06,08,CB,3E,17,10 [1108] 

1630 DATA FB,F5,23,41,10,F3,06,08 [1203] 

1640 DATA 6B,62,Fl,12,13,10,FB,CI [1375] 

1650 DATA Dl,Fl,37,C9,00,00,00,00 [1627] 

1660 DATA 00,00,00,00,00,21,2D,8D [913] 

1670 DATA 11,D3,BD,01,06,00,ED,BO [907] 

1680 DATA 3E,C9,32,BC,8C,AF,32,OC [1527] 

1690 DATA 8D,3D,32,EC,8A,21,5E,BD [1206] 

1700 DATA E5,4E,23,5E,23,46,3E,7F [576] 

1710 DATA AO,57,ED,53,03,8D,21,09 [954] 

1720 DATA 8D,71,23,73,23,70,El,3E [1565] 

1730 DATA C3,77,11,FA,8C,23,73,23 [1028] 
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1740 DATA 72,C9,DF,03,8D,E5,DF,06 [1239] 

1750 DATA 8D,E1,C9,00,00,FE,F2,2D [740] 

1760 DATA FE,00,00,00,00,3E,C9,32 [1385] 

1770 DATA OC,8D,32,6D,8D,AF,32,BC [1579] 

1780 DATA 8C,32,73,8D,CD,ID,8E,01 [1049] 

1790 DATA 03,00,11,5E,BD,21,09,8D [1497] 

1800 DATA ED,BO,C3,51,BB,C3,B9,8B [1142] 

1810 DATA C3,EF,8A,01,CO,30,OC,03 [1454] 

1820 DATA 03,FO,OF,EO,OE,01,CC,33 [1943] 

1830 DATA 88,22,F5,3A,C3,B7,FE,02 [888] 

1840 DATA 28,OB,Fl,E5,CD,A5,BB,CD [1375] 

1850 DATA 5F,8C,C3,4F,13,CD,6A,OB [1943] 

1860 DATA Fl,E5,CD,A5,BB,CD,5F,8C [1437] 

1870 DATA Dl,EB,06,08,1A,13,77,CD [1360] 

1880 DATA 1F,0C,10,F8,C9,00,3E,01 [1783] 

1890 DATA 32,6D,8D,00,3A,D4,BD,FE [879] 

1900 DATA 4B,CO,21,D3,BD,36,C3,23 [1154] 

1910 DATA 11,42,8D,73,23,72,3E,C9 [1339] 

1920 DATA 32,73,8D,AF,32,0C,8D,32 [723] 

1930 DATA EC,8A,C9,CD,75,8A,CO,46 [1118] 

1940 DATA 23,5E,23,56,EB,7E,E5,C5 [1565] 

1950 DATA CD,5D,BB,CI,E1,23,10,F5 [968] 

1960 DATA C9,00,21,6E,8E,11,6B,8E [1506] 

1970 DATA 06,03,C5,D5,46,23,11,92 [1561] 

1980 DATA 8E,C5,1A,46,13,23,E5,CD [731] 

1990 DATA 27,BB,El,CI,10,F3,Dl,CI [1075] 

2000 DATA 1A,13,32,C0,8D,10,E3,3E [1708] 

2010 DATA C9,32,A9,8D,AF,32,1D,8E [1655] 

2020 DATA 3A,BC,8C,B7,20,03,CD,6E [1854] 

2030 DATA 8D,3E,C3,11,C6,8E,21,A5 [1669] 

2040 DATA BB,CD,65,8E,11,EF,8A,21 [1273] 

2050 DATA D6,BD,CD,65,8E,11,11,8E [1580] 

2060 DATA 23,CD,65,8E,11,01,8E,18 [1185] 

2070 DATA 61,DD,E5,F5,CD,06,B9,Fl [1284] 

2080 DATA CD,A5,BB,CD,5F,8C,C3,45 [1621] 

2090 DATA 19,4F,3A,33,B7,B7,79,C2 [550] 

2100 DATA 01,8E,C3,13,14,C9,21,A2 [1501] 

2110 DATA 8E,CD,AD,8D,3A,BC,8C,B7 [1450] 

2120 DATA 28,07,3A,6D,8D,B7 ,CC, OC [H53] 

2130 DATA 8D,3E,C9,32,ID,8E,AF,32 [1771] 

2140 DATA A9,8D,3E,CF,11,D4,92,21 [826] 

2150 DATA A5,BB,CD,65,8E,21,D6,BD [1445] 

2160 DATA 47,3A,EC,8A,B7,78,20,06 [1001] 

2170 DATA 11,BE,93,CD,65,8E,21,D9 [610] 

2180 DATA BD,11,OA,94,CD,65,8E,11 [1606] 

2190 DATA 40,99,21,FC,BB,77,23,73 [580] 

2200 DATA 23,72,C9,2D,33,27,10,7E [1332] 

2210 DATA 2B,23,3C,5E,7D,7B,7C,2D [2168] 

2220 DATA 2E,30,2C,37,7A,33,79,10 [869] 

2230 DATA 3F,2A,27,3E,60,5D,5B,5C [1295] 

2240 DATA 5F,3A,3D,3B,2F,5A,40,59 [1327] 

2250 DATA 01,A3,19,11,13,16,18,1A [1127] 

2260 DATA IC,ID,IE,1F,20,27,29,2B [1454] 

2270 DATA 39,47,10,2D,5B,5D,5C,5E [838] 

2280 DATA 40,3B,3A,2F,2E,30,2C,37 [1181] 

2290 DATA 79,33,7A,10,3D,7B,7D,60 [1082] 

2300 DATA A3,7C,2B,2A,3F,3E,5F,3C [978] 

2310 DATA 27,59,23,5A,01,FF,C5,CD [997] 

2320 DATA FE,8E,3E,00,4F,B7,28,24 [996] 

2330 DATA D5,11,F6,8E,D5,CD,06,B9 [1996] 

2340 DATA F5,06,08,AF,7E,17,B6,12 [1033] 

2350 DATA 23,13,10,F7,Fl,CD,OC,B9 [1357] 

2360 DATA 37,CB,79,28,05,3E,FF,1B [1304] 

2370 DATA 12,37,El,D1,C1,C9,00,00 [1118] 

2380 DATA 00,00,00,00,00,00,21,2D [941] 

2390 DATA 8F,01,08,00,CD,OC,8F,37 [546] 

2400 DATA C8,CF,D4,92,FE,40,C8,D8 [1632] 

2410 DATA 09,FE,5B,C8,D8,09,FE,5C [1231] 

2420 DATA C8,09,FE,5D,C8,09,FE,7B [1570] 

2430 DATA C8,D8,09,FE,7E,D0,09,FE [1638] 

2440 DATA 7C,C8,09,AF,C9,3E,60,7C [2195] 

2450 DATA C6,7C,OC,F8,00,DB,3C,66 [1460] 

2460 DATA 66,7E,66,66,00,66,3C,66 [816] 

2470 DATA 66,66,66,3C,00,66,00,66 [1145] 

2480 DATA 66,66,66,3C,00,C6,00,78 [1231] 

2490 DATA OC,7C,CC,76,00,3C,46,C6 [1072] 

2500 DATA D8,C6,C6,D8,CO,66,00,3C [1356] 

2510 DATA 66,66,66,3C,00,66,00,00 [1163] 

2520 DATA 66,66,66,3E,00,11,E6,55 [1114] 

2530 DATA 21,DD,8E,73,23,72,21,CB [1212] 

2540 DATA 8E,CB,CE,C9,11,17,B6,18 [569] 

2550 DATA EF,AF,32,CB/8E,C9,21,CB [1170] 

2560 DATA 8E,CB,FE,11,00,00,18,EO [710] 

2570 DATA C9,00,00,00,00,00,00,00 [1564] 
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Einen Moment mal! 

Interrupt-Kursus für den CPC 

In der heutigen Folge, die auch den Abschluß unseres Kursus bildet, 
besprechen wir die weitergehende Programmierung der Event-Befehle 
und deren Anwendung. Dabei gehen wir auf wichtige Systemadressen des 
CPC ein. 


Bevor wir auf die Programmierung des 
Eventblocks eingehen, wollen wir eini¬ 
ge Einsprungadressen auflisten, ohne 
die eine Interrupt-Programmierung 
nicht möglich wäre. 

CALL &BCD7 

Mit diesem Call wird ein Interrupt¬ 
block eines Frame Flybacks ab der 
Adresse im Register HL eingerichtet 
und der Interrupt gestartet. Die Adres¬ 
se des Unterprogramms steht dabei im 
Register DE, in B wird das Multifunk¬ 
tionsregister übergeben und in C die 
ROM-/RAM-Auswahl. 

CALL &BCI)A 

Dieser Call startet einen Frame-Fly- 
back-Interrupt, dessen Blockanfangs¬ 
adresse im Register HL steht. Dabei ist 
zu beachten, daß dieser Block vorher 
schon auf andere Weise eingerichtet 
worden sein muß. Es genügt aber auch 
schon, wenn nur der allgemeine Teil 
des Eventblocks vorhanden ist. 

CALL &BCDD 

Mit diesem Call wird ein Frame- 
Fly-Interrupt gelöscht, wobei die An¬ 
fangsadresse seines Blocks in HL ange¬ 
geben wird. Der Block selbst bleibt 


durch diese Operation zwar erhalten, 
wird aber nicht mehr angesprungen. Er 
kann jederzeit wieder durch den Call 
&BCDA aktiven werden. 

LL &BCE0 

Dieser Call hängt einen Fast- 
Ticker-Interrupt ein und startet ihn. Er 
ist die Entsprechung des Frame- 
Fly-Calls &BCD7. 

CALL &BCE3 

Mit diesem Interrupt startet ein schon 
eingerichteter Fast-Ticker-Interrupt, 
entsprechend Call &BCDA beim 
Frame Flyback. 

CALL &BCE6 

Durch diesen Interrupt wird ein Fast- 
Ticker-Interrupt ausgeschaltet. Die 
Einzelheiten entsprechen dem Frame 
Flyback; einzige Ausnahme ist der Call 
zur Reaktivierung, der beim Fast 
Ticker Call &BCE3 ist. 

CALL &BCE9 

Dieser Einsprung ist nun im Vergleich 
zu den oberen grundverschieden. Wäh¬ 
rend die Einrichteeinsprünge bei 
Frame Flyback und Fast Ticker jeweils 
den gesamten Interruptblock einrich¬ 


ten, wird bei diesem Call nur der spe¬ 
zielle Teil des Eventblocks initialisiert. 
Für die Praxis bedeutet das, daß der 
allgemeine Teil schon vorher einge¬ 
richtet werden muß (siehe dazu die 
übernächste Einsprungsadresse). HL 
enthält bei dieser Routine den Anfang 
des speziellen Teils, DE gibt an, nach 
welcher Zeit (in I /50 Sekunden) der In¬ 
terrupt zum ersten Mal aufgerufen 
wird. BC schließlich gibt das Intervall 
an, in dem der Interrupt danach aufge¬ 
rufen wird. 

CALI. &BCEC 

Mit diesem Call wird ein Ticker-Inter¬ 
rupt ausgehängt. 

CALL &BCEF 

Dieser Call richtet nun den allgemei¬ 
nen Teil des Evenlblocks ein. Dazu 
wird in HL die Anfangsadresse des all¬ 
gemeinen Teils angegeben, das heißt, 
es muß die Anzahl der speziellen Bytes 
zu der Anfangsadresse des gesamten 
Blocks addiert werden. DE gibt wieder 
die Adresse der Unterprogrammrouti¬ 
ne an, B das Multifunktionsregister 
und C den ROM-Select. Dieser Ein¬ 
sprung startet natürlich keinen Inter¬ 
rupt. 

CALL &BCF2 

Dieser Call kickt einen in HL durch die 
Anfangsadresse gegebenen Interrupt¬ 
block einmal. 

CALL &BCF5 

Dieser Call löscht die synchrone Pen- 
ding Queue. 

CALL &BCF8 

Mit diesem Call wird ein bestimmter 
Block aus der Pending Queue gelöscht 
(Adresse in HL). 

CALL &BCFB 

Der Call gibt die Adressen der syn¬ 
chronen Events in Reihenfolge der 
Priorität an. 

CALL &BCFE 

Mit diesem Call wird ein Interruptun¬ 
terprogramm einmal aufgerufen, dazu 
steht in HL die Adresse des gemeinsa¬ 
men Teils des entsprechenden Blocks. 

CALL &BD01 

Dieser Call schließt die Ausführung 
des Calls &BCFE ab, HL ist dabei 
gleich. Das Zählregister im Eventblock 
wird um eins erniedrigt. 

CALL &BD04/CALL &BD07 

Diese beiden Calls entsprechen den 
BASIC-Befehlen DI und EI. 
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CALL &BDOA 

Durch disen Call wird die Interrupt- 
Ausführung unterbrochen. Der Event¬ 
block wird zwar noch angesprungen, 
jedoch nicht mehr gekickt. Wenn der 
Zähler wieder auf null gesetzt wird, 
wird der Block wieder bedingungslos 
gekickt. 

Keine Einsprungadresse im eigentli¬ 
chen Sinne, aber eine dennoch nützli¬ 
che Adresse ist &B939 (beim 
CPC-464) oder &B941 (beim 
CPC-664/6128). Sie wird von allen 
Hardware-Interrupts angesprungen 
und ermöglicht es somit, alle Interrupts 
zu sperren. Dazu muß man nur nach 
&B939 beziehungsweise &B941 ein 
&c9 (RET) zu poken. So kann man 
eine geringe, unter Umständen aber 
recht hilfreiche Geschwindigkeitserhö¬ 
hung erreichen. Um die Interrupts wie¬ 
der anlaufen zu lassen, muß man nur 
die Adresse mit ihrem ursprünglichen 
Wert wieder laden. An dieser Stelle 
noch ein Hinweis: Auch von OUT-Be- 
fehlen kann ein Interrupt beeinflußt 
werden. Die OUTs &BC00,5 und 
&BD00.20 beeinflussen beispielsweise 
nach ihrer Eingabe im BASIC den 
Bildrücklauf und auch die Ausfüh¬ 
rungsgeschwindigkeit von Interrupts. 

Eventblock-Programmierung 

Nun kommen wir endlich zur prakti¬ 
schen Programmierung des Event¬ 
blocks. Dazu zeigen wir anhand eines 
Assemblerlistings die einfachste Me¬ 
thode, einen Ticker-Interrupt einzu¬ 
richten: 

0RG&4000: 

Programmadresse 
LD hl,&5006: 

Adresse des gemeinsamen Teils (die vori¬ 
gen 6 Bytes beim Ticker (beziehungsweise 
2 bei den anderen Interrupts) müssen 
freigelassen werden 
LDde,&4500: 

Adresse des Unterprogramms 
LD b, &a6: 

Multifunktionsregister setzen 
LD c, 8c00: 

ROM-Auswahl setzen 
CALL &bcef: 

gemeinsamen Teil einrichten 
LD de,&0010: 

1. Aufruf festlegen 
LD bc, &0022: 

Aufrufsintervall setzen 
LDhl,&5000: 

Anfang des gesamten Blocks im Speicher 
CALL &bce9: 

Einrichten des speziellen Teils und Star¬ 
ten des Interrupts (Ticker) 

RET: 

Return 


Bei diesem Einrichten des Eventblocks 
muß jetzt vor allem noch die Interrupt- 
Routine ab der angegebenen Adresse 
(hier hexadezimal &4500) in den Spei¬ 
cher gebracht werden, die vom Com¬ 
puter ausgeführt werden soll. Zur 
Eventblock-Programmierung sind 
noch folgende Dinge zu erwähnen: 
Zum einen ist es wichtig zu beachten, 
daß, um den gemeinsamen Teil einzu¬ 
richten (CALL &bcef). die anzugeben¬ 
de Adresse sich aus Anfangsadresse 
des gesamten Blocks und der Anzahl 
der vom speziellen Teil benötigten 
Bytes zusammensetzt, also entweder 
zwei oder sechs Bytes noch hinzuge¬ 
zählt werden. Zum anderen ist es rat¬ 
sam. ein und denselben Block nicht 
mehrmals nacheinander aufzurufen, 
ohne ihn vorher auszuschalten, da es 
sonst zu Fehlverkettungen kommen 
kann. 

Praxisanwendung in Assembler 

Damit alle vorherigen Ausführungen 
nicht bloß als theoretisches Gerüst im 
Raum stehenbleiben, werden wir im 
folgenden für jeden der Maschinen¬ 
sprache-Interrupts eine praktische An¬ 
wendung als Beispiel und Hilfe für ei¬ 
gene Programme vorstellen. 

Frame Flyback 

Das Beispielprogramm bewegt einen 
rechteckigen Sprite am oberen Bild¬ 
schirmrand. Eine richtige Figur haben 
wir aus Platzgründen vernachlässigt, 
da es bei den Beispielen nur um das 
Prinzip geht. 

Der Sprite wird jede I /50 Sekunde um 
ein Byte versetzt dargestellt. Diese 
Darstellungsform liegt genau synchro¬ 
nisiert zum Bildrücklauf des Monitors, 
deshalb ist sie völlig flimmerfrei. 
Wenn die Sprites aber größer werden, 
können sie, wenn sie sich im oberen 
Bildschirmbercich befinden, unsauber 
und verzogen wirken, in Teilen sogar 
verschwinden, und das,' obwohl die 
Zeit, die zum Hinmalen benötigt wird, 
unter der Bildrücklauffrequenz liegt. 
Zum eigenen Ausprobieren muß die 
Adresse &4070 mit dem Wert 17 gela¬ 
den werden, viel größere Weite sollten 
nicht gewählt werden, da sonst der 
Sprite nicht mehr im Bildrücklauf be¬ 
wegt werden kann. Oben angeführtes 
Phänomen ist damit zu erklären, daß 
der Elektronenstrahl den Inhalt des 
Bildschirmspeichers schneller dar¬ 


stellt, als dieser durch Poken verändert 
werden kann. So kommt es dazu, daß 
der Elektronenstrahl das Umladen des 
Speichers überholt. So wird ein Teil 
des neu umgeladenen Sprites, der an¬ 
dere Teil des noch nicht umgeladenen 
dargestellt. Wird der Bildschirm nun 
aber durch das Bewegen des Cursors 
“hardwaremäßig“ gescrollt und so der 
Sprite nach unten verschoben, ist wie¬ 
der genug Zeit vorhanden, um die In¬ 
formationen des Sprites vor dem Elek¬ 
tronenstrahl vollständig im Bild¬ 
schirmspeicher zu verschieben. 

Fast Ticker 

Im folgenden zeigen wir Ihnen die An¬ 
wendung des sehr schnellen Fast- 
Ticker-Interrupts. Dieser ist mit 1/300 
Sekunde Aufrufzeit sechsmal schneller 
als der Bildrücklauf. Dieses macht man 
sich zunutze, um während des Bild¬ 
rücklaufs Änderungen des Modus oder 
der zur Verfügung stehenden Farben 
vorzunehmen. 

Den Farben (Inks) von 0 bis 26 sind 
folgende Werte (hexadezimal) in selbi¬ 
ger Reihenfolge für die Out-Befehle 
zugeordnet: 

54,44,55,5c,58,5d,4c,45,4d,56,46, 

57,5e,40,5f,4e,47,4/52,42,53,5a,59, 
5b, 4a,43,4B 

Also, zum Beispiel aus Ink 6 wird der 
Wert &4c. Auf ähnliche Weise ist auch 
ein Mode-Splitting zu realisieren. 
Dazu muß man nur das vorherige Un¬ 
terprogramm “SPLIT“ durch die 
gleich folgende Version ersetzen. Das 
Unterprogramm “SETZEN“ sowie die 
zwei Farbtabellen sind dann nicht mehr 
nötig. 

Bei diesem Beispiel ist der Bildschirm 
zweigeteilt; theoretisch ist es aber so¬ 
gar möglich, bis zu sechs Modus- be¬ 
ziehungsweise Farbzonen einzurich¬ 
ten. In der Praxis ergibt sich dabei das 
Problem, daß bei sechs Teilbereichen 
zu viel Zeit verbraucht wird. So kann 
kaum noch ein vernünftiges Programm 
parallel laufen. Besonders wichtig ist 
es, Splitprogramme während Aktio¬ 
nen, die die Interrupts beeinflussen, 
zum Beispiel Diskettenoperationen, 
abzuschalten, da sonst Koordinations¬ 
probleme mit dem Bildrücklauf auftre- 
ten können. 

Ticker 

Das Beispielprogramm, mit dem wir 
diese Serie beenden wollen, ist eine in- 
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terruptgestcuerte Uhr, die parallel zur 
BASIC-Programmen läuft. 

Diese Uhr ist nur als eine Art Grundge¬ 
rüst anzusehen und muß deshalb den je¬ 
weiligen Gegebenheiten noch angepaßt 


werden. Wir hoffen, wir haben mit die¬ 
ser Serie dem User die grundlegende 
Struktur von Interrupts nähergebracht. 

Außerdem hoffen wir, daß wir Ihnen 
für die eigene Anwendung einige Hil¬ 


festellungen und Anregungen gegeben 
haben. 

(Jens Buri & Matthias Wittern/cd) 


10 MEMORY &3FFF [758] 

20 FOR adr=&4000 TO S4200 STEP 8 [1039] 

30 FOR i=adr TO adr+ 7 [1011] 

40 READ b$ [315] 

50 byte=VAL("&"+b$) [465] 

60 POKE i ,byte [294] 

70 NEXT i [375] 

80 NEXT adr [547] 

90 END [110] 

100 DATA 3E,02,CD,0E,BC,21,00,C0 [1720] 

110 DATA 22,32,40,3E / 01 / 32,34,40 [969] 

120 DATA 3E,01,32,35,40,21,29,40 [1023] 

130 DATA 11,36,40,06,81,0E,00,CD [1417] 

140 DATA D7,BC,21,0A,01,CD,75,BB [1802] 

150 DATA C9,00,00,00,00,00,00,00 [1564] 

160 DATA 00,00,00,00,00,00,3A,35 [1040] 

170 DATA 40,47,3A,34,40,80,FE,4C [1052] 

180 DATA CA,64,40,FE,00,CA,64,40 [1338] 

190 DATA 32,34,40,2A,32,40,C5,F5 [1262] 

200 DATA E5,AF,CD,6F,40,E1,F1,C1 [648] 

210 DATA 7D,80,6F,22,32,40,3E,FF [1963] 

220 DATA CD,6F,40,C9,3A,35,40,EE [683] 

230 DATA FE,32,35,40,C3,36,40,06 [1238] 

240 DATA 08,C5,F5,E5,06,06,77,23 [758] 

250 DATA 10,FC,El,CD,26,BC,Fl,CI [908] 

260 DATA 10,EF,C9,00,00,00,00,00 [1211] 

270 DATA 00,00,00,00,00,00,00,00 [1005] 

280 DATA 00,00,00,00,00,00,00,00 [1005] 

290 DATA 00,00,00,00,00,00,00,00 [1005] 

300 DATA 00,00,00,00,00,00,00,00 [1005] 

310 DATA 00,00,00,00,00,00,00,00 [1005] 

320 DATA 00,00,00,00,00,00,00,00 [1005] 

330 DATA 00,00,00,00,00,00,00,00 [1005] 

340 DATA 00,00,00,00,00,00,00,00 [1005] 

350 DATA 00,00,00,00,00,00,00,00 [1005] 

360 DATA 00,00,00,00,00,00,00,00 [1005] 

370 DATA 00,00,00,00,00,00,00,00 [1005] 

380 DATA 00,00,00,00,00,00,00,00 [1005] 

390 DATA 00,00,00,00,00,00,00,00 [1005] 

400 DATA 00,00,00,00,00,00,00,00 [1005] 

410 DATA 00,00,00,00,00,00,00,00 [1005] 

420 DATA 21,29,40,CD,DD,BC,C9,00 [745] 

430 DATA 00,00,00,00,00,00,00,00 [1005] 

440 DATA 00,00,00,00,00,00,00,00 [1005] 

450 DATA 00,00,00,00,00,00,00,00 [1005] 

460 DATA 00,00,00,00,00,00,00,00 [1005] 

470 DATA 00,00,00,00,00,00,00,00 [1005] 

480 DATA 00,00,00,00,00,00,00,00 [1005] 

490 DATA 00,00,00,00,00,00,00,00 [1005] 

500 DATA 00,00,00,00,00,00,00,00 [1005] 

510 DATA 00,00,00,00,00,00,00,00 [1005] 

520 DATA 00,00,00,00,00,00,00,00 [1005] 

530 DATA 00,00,00,00,00,00,00,00 [1005] 

540 DATA 00,00,00,00,00,00,00,00 [1005] 

550 DATA 00,00,00,00,00,00,00,00 [1005] 

560 DATA 00,00,00,00,00,00,00,00 [1005] 

570 DATA 00,00,00,00,00,00,00,00 [1005] 

580 DATA 00,00,00,00,00,00,00,00 [1005] 

590 DATA 00,00,00,00,00,00,00,00 [1005] 

600 DATA 00,00,00,00,00,00,00,00 [1005] 

610 DATA 00,00,00,00,00,00,00,00 [1005] 

620 DATA 00,00,00,00,00,00,00,00 [1005] 

630 DATA 00,00,00,00,00,00,00,00 [1005] 

640 DATA 00,00,00,00,00,00,00,00 [1005] 

650 DATA 00,00,00,00,00,00,00,00 [1005] 

660 DATA 00,00,00,00,00,00,00,00 [1005] 

670 DATA 00,00,00,00,00,00,00,00 [1005] 

680 DATA 00,00,00,00,00,00,00,00 [1005] 

690 DATA 00,00,00,00,00,00,00,00 [1005] 

700 DATA 00,00,00,00,00,00,00,00 [1005] 

710 DATA 00,00,00,00,00,00,00,00 [1005] 

720 DATA 00,00,00,00,00,00,00,00 [1005] 

730 DATA 00,00,00,00,00,00,00,00 [1005] 

740 DATA 00,00,00,00,00,00,00,00 [1005] 


Listing: Sprite 


10 MEMORY &3FFF 

[758] 

20 FOR adr=&4000 TO &4200 STEP 8 

[1039] 

30 

FOR 

i=adr TO adr+ 7 

[1011] 

40 

READ b$ 

[315] 

50 

byte=VAL("&"+b$) 

[465] 

60 

POKE i,byte 

[294] 

70 

NEXT i 

[375] 

80 NEXT adr 

[547] 

90 END 


[110] 

100 

DATA 

AF, 32,48,40,21,49,40,11 

[1267] 

110 

DATA 

15,40,06,81,0E,00,CD, 19 

[1324] 

120 

DATA 

BD,CD,E0,BC,C9,3A,48,40 

[1069] 

130 

DATA 

3C,32,48,40,FE,06,C2,2C 

[1409] 

140 

DATA 

40,AF,32,48,40,21,52,40 

[767] 

150 

DATA 

CD,36,40,C9,FE,03,C0,21 

[1453] 

160 

DATA 

62,40,CD,36,40,C9,06,10 

[1582] 

170 

DATA 

0E,00,C5,06,7F,7E,23,ED 

[1581] 

180 

DATA 

49,ED,79,C1,0C,10,F3,C9 

[1824] 

190 

DATA 

02,00,00,00,00,00,81,15 

[963] 

200 

DATA 

40,00,54,44,55,5C,58,5D 

[1204] 

210 

DATA 

4C,45,4D,56,46,57,5E,40 

[971] 

220 

DATA 

5F,4E,4B,43,4A,5B,59,5A 

[900] 

230 

DATA 

53,42,52,4F,47,4E,5F,40 

[1011] 

240 

DATA 

5E,57,00,00,00,00,00,00 

[977] 

250 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

260 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

270 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

280 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

290 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

300 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

310 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

320 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

330 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

340 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

350 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

360 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

370 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

380 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

390 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

400 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

410 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

420 

DATA 

21,49,40,CD,E6,BC,C9,00 

[1350] 

430 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

440 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

450 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

460 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

470 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

480 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

490 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

500 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

510 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

520 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

530 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

540 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

550 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

560 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

570 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

580 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

590 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

600 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

610 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

620 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

630 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

640 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

650 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

660 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

670 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

680 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

690 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

700 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

710 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

720 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

730 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

740 

DATA 

00,00,00,00,00,00,00,00 

[1005] 


Listing: Split 
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10 

MEMORY &3FFF 

[758] 

20 

FOR adr=&4000 TO S.4200 STEP 8 

[1039] 

30 

FOR 

i=adr TO adr+ 7 

[1011] 

40 

READ b$ 

[315] 

50 

byte=VAL("&"+b$) 

[465] 

60 

POKE i,byte 

[294] 

70 

NEXT i 

[375] 

80 

^EXT adr 

[547] 

90 

END 


[110] 

100 

DATA 

AF,32,15,40,21,16,40,11 

[1242] 

110 

DATA 

1F,40,06,81,0E,00,CD,19 

[1374] 

120 

DATA 

BD,CD,E0,BC,C9,00,00,00 

[1033] 

130 

DATA 

00,00,00,00,00,00,00,3A 

[918] 

140 

DATA 

15,40,3C,32,15,40,FE,06 

[1883] 

150 

DATA 

C2,35,40,AF,32,15,40,3E 

[835] 

160 

DATA 

01,CD,IC,BD,C9,FE,03,C0 

[976] 

170 

DATA 

3E,02,CD,IC,BD,C9,00,00 

[1806] 

180 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

190 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

200 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

210 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

220 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

230 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

240 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

250 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

260 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

270 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

280 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

290 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

300 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

310 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

320 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

330 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

340 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

350 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

360 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

370 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

380 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

390 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

400 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

410 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

420 

DATA 

21,16,40,CD,E6,BC,C9,00 

[1400] 

430 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

440 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

450 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

460 

DATA 

00,00,00;00,00,00,00,00 

[1005] 

470 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

480 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

490 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

500 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

510 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

520 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

530 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

540 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

550 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

560 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

570 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

580 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

590 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

600 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

610 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

620 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

630 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

640 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

650 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

660 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

670 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

680 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

690 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

700 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

710 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

720 

DATA 

00 , 00 , 00 , 00 , 00 , 00 , 00 , o'o 

[1005] 

730 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

740 

DATA 

00,00,00,00,00,00,00,00 

[1005] 

Listing: Mode setzen 


10 MEMORY 

&3FFF 

[758] 

20 FOR adr=&4000 TO &4200 STEP 8 

[1039] 

30 

FOR 

i=adr TO adr+ 7 

[1011] 

40 

READ b$ 

[315] 

50 

byte=VAL("&"+b$) 

[465] 


60 POKE i,byte [294] 

70 NEXT i [375] 

80 NEXT adr [547] 

90 END [HO] 

100 DATA 3E,0A,32,AA,40,3E,3B,32 [1116] 

110 DATA AB,40,3E,38,32,AC,40,21 [534] 

120 DATA B3,40,11,29,40,06,81,OE [1321] 

130 DATA 00,CD,EF,BC,21,AD,40,11 [1767] 

140 DATA 32,00,01,32,00,CD,E9,BC [1235] 

150 DATA C9,CD,7F,40,CD,78,BB,E5 [1036] 

160 DATA CD,93,BB,F5,3E,01,CD,90 [1952] 

170 DATA BB,21,01,01,CD,75,BB,3A [1141] 

180 DATA AA,40,CD,64,40,3E,3A,CD [1163] 

190 DATA 5A,BB,3A,AB,40,CD,64,40 [1776] 

200 DATA 3E,3A,CD,5A,BB,3A,AC,40 [1285] 

210 DATA CD,64,40,Fl,CD,90,BB,El [1128] 

220 DATA CD,75,BB,C9,01,00,OA,FE [1253] 

230 DATA OA,FA,71,40,OC,90,C3,67 [1490] 

240 DATA 40,F5,79,C6,30,CD,5A,BB [1355] 

250 DATA Fl,C6,30,CD,5A,BB,C9,3A [1616] 

260 DATA AC,40,3C,32,AC,40,FE,3C [1186] 

270 DATA F8,AF,32,AC,40,3A,AB,40 [1654] 

280 DATA 3C,32,AB,40,FE,3C,F8,AF [1102] 

290 DATA 32,AB,40,3A,AA,40,3C,32 [892] 

300 DATA AA,40,FE,18,F8,AF,32,AA [643] 

310 DATA 40,C9,OB,01,13,00,00,1B [678] 

320 DATA 00,32,00,00,00,00,81,29 [1317] 

330 DATA 40,00,00,00,00,00,00,00 [62] 

340 DATA 00,00,00,00,00,00,00,00 [1005] 

350 DATA 00,00,00,00,00,00,00,00 [1005] 

360 DATA 00,00,00,00,00,00,00,00 [1005] 

370 DATA 00,00,00,00,00,00,00,00 [1005] 

380 DATA 00,00,00,00,00,00,00,00 [1005] 

390 DATA 00,00,00,00,00,00,00,00 [1005] 

400 DATA 00,00,00,00,00,00,00,00 [1005] 

410 DATA 00,00,00,00,00,00,00,00 [1005] 

420 DATA 21,AD,40,CD,EC,BC,C9,00 [827] 

430 DATA 00,00,00,00,00,00,00,00 [1005] 

440 DATA 00,00,00,00,00,00,00,00 [1005] 

450 DATA 00,00,00,00,00,00,00,00 [1005] 

460 DATA 00,00,00,00,00,00,00,00 [1005] 

470 DATA 00,00,00,00,00,00,00,00 [1005] 

480 DATA 00,00,00,00,00,00,00,00 [1005] 

490 DATA 00,00,00,00,00,00,00,00 [1005] 

500 DATA 00,00,00,00,00,00,00,00 [1005] 

510 DATA 00,00,00,00,00,00,00,00 [1005] 

520 DATA 00,00,00,00,00,00,00,00 [1005] 

530 DATA 00,00,00,00,00,00,00,00 [1005] 

540 DATA 00,00,00,00,00,00,00,00 [1005] 

550 DATA 00,00,00,00,00,00,00,00 [1005] 

560 DATA 00,00,00,00,00,00,00,00 [1005] 

570 DATA 00,00,00,00,00,00,00,00 [1005] 

580 DATA 00,00,00,00,00,00,00,00 [1005] 

590 DATA 00,00,00,00,00,00,00,00 [1005] 

600 DATA 00,00,00,00,00,00,00,00 [1005] 

610 DATA 00,00,00,00,00,00,00,00 [1005] 

620 DATA 00,00,00,00,00,00,00,00 [1005] 

630 DATA 00,00,00,00,00,00,00,00 [1005] 

640 DATA 00,00,00,00,00,00,00,00 [1005] 

650 DATA 00,00,00,00,00,00,00,00 [1005] 

660 DATA 00,00,00,00,00,00,00,00 [1005] 

670 DATA 00,00,00,00,00,00,00,00 [1005] 

680 DATA 00,00,00,00,00,00,00,00 [1005] 

690 DATA 00,00,00,00,00,00,00,00 [1005] 

700 DATA 00,00,00,00,00,00,00,00 [1005] 

710 DATA 00,00,00,00,00,00,00,00 [1005] 

720 DATA 00,00,00,00,00,00,00,00 [1005] 

730 DATA 00,00,00,00,00,00,00,00 [1005] 

740 DATA 00,00,00,00,00,00,00,00 [1005] 


Listlng: Uhr 


Listing: Sprite-Bewegung 

ORG S.4000: 

LD a,2 : 

call SbcOe : Mode 2 

LD hl,&c000 : Position 
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LD (adr ) ,hl 

d. Sprite 


djnz sch3 


LD a,l 



ret 

: 

LD (zaehler),a 





LD a,l 



org &4100 

: Interrupt 

LD (richtung),a 



LD hl,block 

: abschalten 

LD hl,block 

Adresse d. 


call Sbcdd 


LD de,move 

Unterprgs. 


RET 


LD b, &81 

Multif. 




LD c,&00 

ROM-Select 




call &bcd7 

Int. einh. 




LD hl,&010a 



Listing: Fast Ticker: 


call &bb75 





RET 



ORG &4000 

Split an! 




xor a 


block ds 9 



LD (zaehler),a 


adr ds 2 



LD hl,block 


zaehler db 0 



LD de,split 

Adr. Hauptprg. 

richtung db 0 



LD b,&81 





LD c,&00 


move LD a,(richtung) 

Unterprg. 


call &bdl9 

Framefly warten 

LD b,a 

(Bewegen) 


call &bce 0 

Interr. an 

LD a,(zaehler) 



ret 


add a,b 





cp 76 



SPLIT LD a,(zaehler) 

Hauptprg. 

jp z,Wechsel 



inc a 


cp 0 



LD ( zaehler),a 


jp z,Wechsel 



cp 6 


weiter LD (zaehler),a 



jp nz,weiter 


LD hl,(adr) 



xor a 


push bc 



LD (zaehler),a 





LD hl,farbl 

Tab. 1.Farben 

push hl 



call setzen 

Farben setzen 

xor a 



ret 


call malen 

Sprite weg 


weiter cp 3 

Mitte setzen 

pop hl 



ret nz 





LD hl,farb2 

Tab. 2.Farben 

pop bc 



call setzen 


LD a,l 



ret 


add a,b 





LD 1 ,a 



setzen LD b,16 

Farben von 0 

LD (adr),hl 



LD c,0 

bis 15 setzen 

LD a,255 



schl push bc 


call malen 

Sprite hin 


LJj b / bi / £ 


ret 



LD a,(hl) 


Wechsel LD a,(richtung) 



inc hl 


xor &fe 



out (c),c 

Farbregister 

LD (richtung),a 



out (c),a 

setzen 

jp move 



pop bc 





inc c 


malen LD b,8 

Y-Sprite 


djnz schl 


sch3 push bc 

Unterprg. 


ret 


push af 

(Malen) 




push hl 



zaehler db o 

; 

LD b, 6 



block ds 9 

! 

sch4 LD (hl),a 





inc hl 



farbl db &54,&44,&55 

:1. F-Tabelle 

djnz sch4 



db &5c,&58,&5d,&4c 





db &45,&4d,&56,&46 


call &bc26 

next Line 


db &57,&5e,&40,&5f 


pop af 



db &4e 


pop bc 








farb2 db &4b,&43,&4a 

:2. F-Tabelle 
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db &5b,&59,&5a,&53 : 

db &42,&52,&4f,&47 : 

db &4e,&5f ,&40,S>5e : 

db &57 : 

ORG £>4100 :Split aus! 

LD hl,block : 

call 6>bce6 rlnterr. aus 

ret : 


Listing: Setzen 

SPLIT LD a,(zaehler) 

inc a 

LD (zaehler),a 
cp 6 

jp nz,weiter 

xor a 

LD (zaehler),a 

LD a, 1 

call &bdlc 

ret 

cp 3 

ret nz 

LD a, 2 
call Sbdlc 

RET 

Hauptprg. 

Mode 1 

setzen 

weiter 

Mitte setzen 

Mode 2 

setzen 

Rcksprung 

Listing: Uhr 



ORG &4000 


Uhr an! 

LD a,10 


Stunde... 

LD (stunden),a 



LD a,59 


Minute... 

LD (minuten),a 



LD a,56 


Sekunde... 

LD (Sekunden),a 


...stellen 

LD hl,block+6 



LD de,uhr 


de,Adresse 

LD b,&81 


Hauptprogr. 

LD c,0 



call &bcef 


Block einr. 

LD hl,block 



LD de,50 


Aufruf jede 

LD bc,50 


Sekunde 

call &bce9 


Los! 

RET 



uhr call stellen 


Uhr +1 Sek. 

call S>bb78 


Cursorpos. 

push hl 


merken 

call &bb93 


Pen merken 

push af 



LD a,l 


Pen 1 

call &bb90 



LD hl,&0101 


Cursor 

call &bb75 


•.setzen 

LD a,(stunden) 


Stunden 

call Ziffern 


ausgeben 

LD a,58 


Doppel- 


call £>bb5a 
LD a,(minuten) 
call Ziffern 
LD a,58 
call &bb5a 
LD a,(Sekunden) 
call Ziffern 
pop af 
call £>bb90 
pop hl 
call &bb75 
ret 

Ziffern LD bc,&0a00 


schl cp &a 
jp m,weiter 2 
inc c 
sub b 
jp schl 

weiter2 push af 
LD a,c 
add a,48 
call &bb5a 
pop af 
add a,48 
call &bb5a 
ret 

stellen LD a, (Sekunden) 
inc a 

LD ( Sekunden ),a 
cp 60 
ret m 
xor a 

LD ( Sekunden),a 
LD a,(minuten) 
inc a 

LD (minuten),a 
cp 60 
ret m 
xor a 

LD ( minuten ),a 
LD a ,( stunden) 
inc a 

LD ( stunden), a 
cp 24 
ret m 
xor a 

LD (stunden),a 
ret 

stunden db 0 
minuten db 0 
Sekunden db 0 
block ds 13 

org &4100 
LD hl,block 
call £>bcec 
RET 


punkt 

s.o. 

s .o. 

s.o. 

alten Pen 
setzen 
Cursor(alt) 
setzen 

:Unterprog. 


(2-Ziffern) 


Print 


Print 


Unterprog. 
(+1 Sek.) 


Variablen 


Uhr aus! 
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Laser, wo bist Du? 


Der Amstrad LD 6000 im Test 

Die Firma Amstrad, die ja daf ür bekannt ist, Komplettsysteme - also fertig 
zusammengestellte und gleich einsetzbare Computersysteme - anzubieten, 
steigt nun mit dem LD 6000 auch in das Laserdruckergeschäft ein. 


Nachdem die 2000er Serie auf den 
Markt kam. ein 24-Nadel-Drucker 
aber nun in mancher Hinsicht doch 
nicht so ganz brauchbar für jeden ist, 
der sich ein solches Gerät gekauft hat 
(mag es an Qualität der Druckerausga¬ 
ben oder anderem liegen), wurden bei 
Amstrad sicherlich Überlegungen an¬ 
gestellt, wie man die Produktpalette 
sinnvoll ergänzen könnte, um auch 
dem Profianwender alles aus einer 
Hand anbieten zu können. Ergebnis 
dieser Überlegungen war — wie man 
sieht - ein handlicher Laserdrucker, 
der aufgrund seines Preises nicht nur 
für diesen Bereich, sondern auch für so 
manch anderen recht gut geeignet ist. 

E rste Erfahrungen 

Was gleich beim Auspacken des Gerä¬ 
tes sehr positiv auffällt, ist die Größe 
des Druckers. Mit seinen wirklich ge¬ 
ringen Abmessungen (B 35 cm x T 34 
cm x H 27,6 cm) gibt es keine Schwie¬ 


rigkeiten bei der Unterbringung auf 
dem Schreibtisch. Auch der Zusam¬ 
menbau (Einstecken der Trommel, der 
Tonerkassette und einiger anderer Be¬ 
standteile) des rund 15 kg schweren 


Technische Daten: 

Druckgeschwindigkeit: 6 Seiten/Mi¬ 
nute 

Auflösung: 300*300 dpi 
Papierbreite: max. DIN A4 
Schnittstelle: parallel (Centronics), 
seriell 

Puffer große: 512 kByte, optional 
1,5-4 MByte 

Emulationen: HP LaserJet Serie II, 
Diabolo 630, Epson FX 80, IBM 
Proprinter, IBM Graphics Printer 
Maße: 35 cm x 34 cm x 27,6 cm (B x 
TxH) 

Gewicht: 15 kg 

Papierzuführung: Kassette mit 250 
Blatt, automatischer Einzelblatt¬ 
einzug 


Gerätes läuft recht problemlos ab, 
wenn man sich dabei strikt an die An¬ 
weisungen im Handbuch hält. 

Soft- oder Hardware? 

Ist der Drucker nun aufgebaut und an 
den Computer angeschlossen, sollte je¬ 
der erst einmal die mitgelieferte Dis¬ 
kette in Augenschein nehmen und mit¬ 
tels dieser das Handbuch zum Softcon- 
Programm ausdrucken lassen. Bei die¬ 
sem handelt es sich um ein speicherre¬ 
sidentes Programm, welches es ermög¬ 
licht, den Drucker vom Computer aus 
einzustellen. Einmal geladen, verbleibt 
es im Speicher und kann dann über die 
Tastenfunktion [ALT] [9] und [ENT¬ 
ER] aufgerufen werden. 

Diese Einstellungen lassen sich natür¬ 
lich auch direkt am Drucker vorneh¬ 
men. So kann man zum Beispiel das 
Tastenfeld des LD 6000 als eine Art 
'zweite Tastatur’ bezeichnen, obwohl 
hier tatsächlich nur acht Tasten zur 
Verfügung stehen. 

Nicht zuletzt die Tasten zum Hoch- und 
Herunterscrollen von Auswahlpunkten 
innerhalb der LCD-Anzeige erleich¬ 
tern die Einstellung von Zeichensät¬ 
zen, Emulationen und Schriften unge¬ 
mein. 

Emulationen 

Der LD 6000 bietet die Möglichkeit, 
mit verschiedenen Emulationen zu ar¬ 
beiten. Derer sind es ganze fünf. Als 
erstes wäre hier die HP-Laser- 
jet-II-Emulation zu nennen. Ebenfalls 
vorhanden ist eine Epson-FX-, eine 
IBM-Proprinter- und Grafik- sowie 
eine Diabolo-630-Emulation. 

Erweiterungen 

Für jede der Emulationen stehen von 
Hause aus einige Standardzeichensätze 
zur Verfügung. Wem das nicht reicht, 
der kann sich in die zwei Erweiterungs- 
Slots noch zusätzliche Zeichensatzkar¬ 
ten einstecken. 

Ebenfalls ist es möglich, den Puffer 
von 512 kByte auf 1.5 bis 4 MByte zu 
erhöhen. 

Bei einem Preis von rund 4000 DM 
sollte man dieses Gerät sicher in die en¬ 
gere Wahl ziehen, wenn man den Kauf 
eines Laserdruckers plant. 

(rs) 
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Informationsverteiler 

Ein Schaltinterface für alle Fälle 

Mit Hilfe eines Interfaces läßt sich eine neue Welt erschließen, die den mei¬ 
sten CPC-Benutzern bis jetzt verschlossen blieb. Durch dieses Interface wer¬ 
den Sie in die Lage versetzt, externe Geräte mit Ihrem CPC zu steuern. 

Diese Hardware-Produktinformation schließt sich an den Artikel “Wie len¬ 
ke ich einen Roboter“ aus dem Heft 1/90 an. Dort wurde der technische 
Hintergrund und der Aulbau ausführlich dargestellt. Außerdem wurden da¬ 
bei zwei interessante Anwendungsbeispiele vorgestellt, ein selbstgebasteltes 
Auto und ein Eigenbau-Plotter. Aufgrund des regen Interesses erscheint 
hier noch einmal eine gesonderte Hardware-Produktinformation zum ferti¬ 
gen Interface. 

Das Interface hat 7 Bit parallel vorliegen. Jede dieser 7 Datenleitungen 
schaltet ein Relais einmal um. Da die Ausgänge über Relais realisiert sind, 
sind die an das Interface angeschlossenen Geräte galvanisch vom Computer 
getrennt. 


steht, wird noch eine Gleichspan¬ 
nungsquelle von 8 bis 9 Volt benötigt. 
Diese wird über eine Klinkenstecker¬ 
buchse vorne an das Gehäuse ange¬ 
schlossen. Falls ein solches Netzgerät 
nicht vorhanden ist, zum Beispiel in 
Form eines geeigneten Eisenbahntra- 
fos, kann es zusätzlich bestellt werden. 
Die meisten Benutzer besitzen wohl 
auch ein Druckerkabel; deshalb ist dies 
ebenfalls nicht im Lieferumfang ent¬ 
halten, kann aber, falls benötigt, mit¬ 
bestellt werden. 

Die Ausgänge des Interface dürfen mit 
maximal 24 Volt beschältet werden. 
Falls für spezielle Anwendungen höhe¬ 
re Spannungen benötigt werden, kann 
mit dem Interface ein externes Relais 
angestcucrt werden. 


Möglichkeiten der Anwendung 
des Interface 

Dieses Interface ermöglicht Ihnen nun 
den leicht erlernbaren Einstieg in die 
Welt der programmierten Maschinen¬ 
steuerung. Sie ahmen nun zu Hause 
nach, was in der Industrie einen immer 
höheren Stellenwert bekommt, zum 
Beispiel in Form von CNC-Maschi- 
nen, Roboterfertigung und ähnlichem. 
Ausführlich erprobt und getestet wurde 
das Interface mit Fischertechnik. 
Ebenso sind interessante Anwendun¬ 
gen mit Lego oder Modelleisenbahnen 
denkbar. Auf jeden Fall wird das Ver¬ 
ständnis für die immer wichtiger wer¬ 
dende Verbindung Computer/Technik 
geschult. 

Wie arbeite ich mit einem sol¬ 
chen Interface ? 

Angeschlossen wird das Interface an 
den Computer mit einem Druckerka¬ 


bel, und zwar am Druckerport des 
CPC. Der Betrieb des Interfaces wird 
im mitgelieferten Handbüchlein genau 
erläutert. Die Programmierung des In¬ 
terface erfolgt sehr einfach vom BA¬ 
SIC aus und kann Über OUT-Befehle 
angesprochen werden. Die Program¬ 
mierung ist ebenfalls im "Handbuch“ 
genau erklärt und wird anhand von Bei¬ 
spielen unterstützt. 

Der Aufbau des Interface 

Das Interface ist in einem stabilen 
Kunststoffgehäuse mit ansprechendem 
Design integriert. Die Schaltausgänge 
sind über Klinkenstecker ausgeführt, 
ebenso wie die Stromversorgung. Die 
benötigten Stecker sind im Lieferum¬ 
fang enthalten. Da die Ausgänge über 
Sterco-Klinkenstecker realisiert sind, 
bleibt die Frontplatte sehr übersicht¬ 
lich. In einem Stecker sind drei Pole in¬ 
tegriert. Da das Herzstück dieses Inter¬ 
face wie gesagt aus sieben Relais be- 


Lieferumfang 

Preis: 170 DM 

Lieferumfang: Interface, Hand¬ 

buch, 8 Klinken¬ 
stecker und zehn 
Meter Kabel. 

Falls nicht vorhanden, können zusätz¬ 
lich bestellt werden: 

Netzgerät(Um- 
schaltbar 6, 9 und 
12 Volt. Maximal 
800 mA) 

25 DM 

Druckerkabel 25 DM 


Info: 

Klaus Mayer 
Höhenweg 73 
563 Remscheid 11 
Tel.: 02191/67 1785 


(cd) 




Das Schall-Interface isl mii 7 Bit parallel geschähet. 


Eine Anwcndiuigsinöglii hkeit ist die Ansteuerung von Modellaulos. 
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Desk-Royal 

Die Benutzeroberfläche 
zum Seiberschreiben 

Wer kennt nicht die bequeme Befehlsauswahl per 
Knopf- oder Mausdruck, die dem PC-Benutzer eine 
komfortable Bedienung seines Computers erlaubt? Das 
Aussehen der Benutzerhilfen ist so vielfältig, wie es ver¬ 
schiedene PCs gibt. Was kann also ein Programm lei¬ 
sten, das eine individuelle Gestaltung, sprich Benutzer¬ 
führung, verspricht? 



Anhand von einstellbaren Parametern kann man wählen, welche Dateiar¬ 
ien angezeigt werden sollen 


Wer schon neidisch auf die leichte Be¬ 
dienbarkeit der PCs war. kann jetzt 
aufatmen. Ein Hersteller verspricht 
eine kinderleichte Programmierung so¬ 
genannter Pulldown-Menüs. Pull- 
down-Menüs sind Fenster, die sich aut 
einen bestimmten Tastendruck hin öff¬ 
nen und eine Auswahl von Befehlen 
oder Funktionen anbieten. Diese kön¬ 
nen wiederum durch eine andere Ta¬ 
stenkombination angewählt werden. 
Die Besitzer einer Computer-Maus 
sind noch besser dran und wissen deren 
Eingabekomfort zu schätzen, der leider 
beim CPC keine Anwendung findet. 
Schade. 

Was wird geboten? 

Das Programmpaket besteht aus einem 
stabilen DIN-A5-Ordner, einem deut¬ 
schen Handbuch mit 40 Seiten und ei¬ 
ner Programmdiskette. 

Die Diskette hält außer 38 BASIC- 
RSX-Befehlen noch einen ganz beson¬ 
deren Leckerbissen bereit. Doch dazu 
später. Diese erweiterten BASIC-Be- 
fehle können, wie der Name schon 
sagt, nachträglich in eigene BASIC- 
Programme eingebracht werden. Aber 
in Anbetracht der Tatsache, daß die 
einzelnen Befehle mächtige Auswir¬ 
kungen haben, sollte sich jeder überle¬ 
gen, ob es nicht sinnvoller ist, gleich 
ein neues Programm zu schreiben. 

Da es auch nur eine einzige Beschrän¬ 
kung für die Länge der BASIC-Pro- 
gramme gibt — die liegt bei 27 kByte 
ist dem Anwender genügend Spiel¬ 
raum für eigene Entwurfsideen gege¬ 
ben. Allerdings müssen auch einige 
Abstriche bei der Einbindung von Ma¬ 
schinenprogrammen gemacht werden, 
da einige Speicherbereiche mit dem 
Hauptprogramm belegt sind. Um die 
Verständlichkeit der neuen Befehle zu 


fördern, wurde ein Beispielprogramm 
anhand einer kleinen Benutzeroberflä¬ 
che demonstriert (siehe Bildschirm¬ 
foto). 

Zum Beispiel ist es möglich, daß man 
mit einem einzigen Befehl ganze Me¬ 
nüs aufbauen kann, ohne daß man da¬ 
vor ellenlange Handbücher lesen muß. 
Für den absoluten Anfänger ist das 
Programm weniger geeignet, da ein¬ 
fach gewisse Programmierkenntnisse 
vorausgesetzt werden. Wer aber über 
solche Kenntnisse verfügt, bekommt 
kräftig Hilfe vom Programm. 

Zum Beispiel können bis zu 20 auf¬ 
klappbare Menüs aufgebaut werden, 
die wiederum zu Untermenüs verzwei¬ 
gen können. Aber auch Funktionen, 
wie Druckereinstellungen, können 
sehr leicht mit den bereitgestellten Be¬ 
fehlen erzeugt werden. 

Im Dialog 

Beim Auftreten von Fehlern gibt es die 
Möglichkeit, diese abzufangen und 
entsprechende Alarmboxen auszuge¬ 
ben — jeder Fehler erzeugt einen be¬ 
stimmtem Fehlercode, der mit einer 
Hinweisbox verknüpft werden kann. 
Auch Fehler, die beim Diskettenbe¬ 
trieb auftreten können und eventuell 
ein aufgebautes Menü zerstören wür¬ 
den. werden gut abgefangen. Soll ein 
Programm auf eine schreibgeschützte 
Diskette abgespeichert werden, be¬ 
kommt der Anwender eine sogenannte 
Dialogbox eingeblendet, die sagt, daß 
die Diskette schreibgeschützt ist. Nun 
besteht die Möglichkeit für einen Ab¬ 
bruch oder nochmaligen Versuch. Sol¬ 
che anwenderfreundlichen Dialogbo¬ 
xen sind frei definierbar und können 
bei Bedarf farblich unterlegt sein. 
Allerdings sind die Diskettenabfang¬ 
routinen nur unter AMSDOS verwend¬ 
bar. Andere Systeme, wie VOR- 


TEX-Laufwerke, die einen eigenen 
Controller besitzen, sind nicht vorge¬ 
sehen und werden deshalb nicht mit 
einbezogen. 

Run only 

Wie am Anfang gesagt, ist es möglich, 
die RSX-Befehle nachträglich in BA- 
SlC-Programmen einzusetzen. Jetzt ist 
es aber so. daß Sie Desk-Royal für das 
BASIC-Programm nicht brauchen, 
sondern ein eigenständiges, ablauffähi¬ 
ges Programm erstellen können! Der 
Vorteil liegt natürlich auf der Hand. 
Sie haben nach dem Starten ein sofort 
lauffähiges Programm, das sich als äu¬ 
ßerst schnell erwiesen hat. 

Fazit 

Das Programm-Paket bietet für sein 
Geld starke und praktische Erstellungs¬ 
hilfen für eine grafisch aufgemachte 
Menüsteuerung an. Auch die Erstel¬ 
lung von “Run-only-Programmen“ ist 
eine wirklich hervorragende Sache. 
Allerdings hätte man in dem ansonsten 
gut gegliederten Handbuch einige Ab¬ 
bildungen zur Auflockerung und zum 
besseren Verständnis integrieren 
können. 

(cd) 


Desk-Royal 

Hersteller: Crusader Software 
Vertrieb: Crusader Software, 
Axel Weber, 

Postfach 260154, 

5600 Wuppertal 
Steuerung: Tastatur/Joystick 
Datenträger: Diskette 3 Zoll. 
MSDOS 

Computertvp: 464, 664. 6128 
Preis: 54,95 DM 


50 PC 10/11*90 














Aktuell—| 


PCW per Trabbi in die DDR 


Anläßlich der Erfurter Compu¬ 
termesse COM’90 vom 30.05.90 
bis 01.06.90 fand auf dem Mes¬ 
sestand des DMV-Verlags eine 
große Verlosungsaktion statt. 

Im Rahmen dieser Verlosung 
waren Preise von vielen namhaf¬ 
ten Finnen ausgesetzt. Als 
Hauptgewinn gab es einen 
PCW9512 von Amstrad. Herr 
Weise aus Gera - der Hauptge¬ 
winner - hatte das große 
Glück, den ersten Preis am 
28.06.90 direkt bei DMV in 
Eschwege in Empfang nehmen 
zu können. 


Nachdem die Übergabezeremo¬ 
nie vorüber war, sollte der ei¬ 
gentliche Kampf beginnen. Wie 
konnte man dem Trabbi beibrin- 
gen, daß er diesen schmucken 
- vielleicht doch etwas zu groß 
geratenen - Karton in sich auf¬ 
nehmen sollte? Hier war guter 
Rat teuer. Auf dem Beifahrer¬ 
sitz: kein Platz; der Kofferaum: 
zu klein. 

Dann endlich, nach unendlich 
vielen vergeblichen Versuchen 
wurde der PCW verstaut. Der 
Rücksitz bot letztendlich doch 
noch genügend Platz. 


Bildschirmtext für CPCs 


Die Firma Dobbertin Industrie- 
Elektronik bietet jetzt für alle 
CPCs einen BTX-Softwaredeco- 
der an. 

Gesondert wird noch folgende 
Hardware benötigt: 

• beim CPC 464/664 eine 
RAM-Erwciterung von dk'tro- 
nics oder Dobbertin mit minde¬ 
stens 64 kByte, 

• eine CP/M plus Systemdis- 
ketle, 

• eine serielle Schnittstelle von 
Amstrad oder Schneider sowie 

• ein 1200 Baud Haycs- kompa¬ 
tibles Modem und 


• das D-BT03 Postmodem oder 
s2l-23d Akustikkoppler. Eben¬ 
falls wird beim Betrieb über das 
D-BT03 oder den s21-23d noch 
ein zusätzliches Kabel mit An¬ 
paßelektronik benötigt. Dies ist 
leider nicht im Lieferumfang 
enthalten, kann jedoch geson¬ 
dert bestellt werden. 

Der leicht zu installierende Soft¬ 
waredecoder auf 3-Zoll-Disket- 
te kostet 99,— DM. 

Infos: Dobbertin Industrie- 
Elektronik GmbH, Brahmstraße 9, 
6835 Brühl. 


Neue PC-Reihe von Amstrad 


Amstrad hat nun auf die wohl 
qualitativ nicht immer in bestem 
Zustand befindlichen Festplat¬ 
ten der 20er-Reihe ihrer PCs 
reagiert. 


Zur OrgaTech ’90 werden drei 
neue MS-DOS-Rechner die fu¬ 
turistisch gestylte 20er-Reihe 
ersetzen. Das Design wurde 
ebenso geändert wie verschiede¬ 



Herr Weise aus Jena mit seinem PCW 9512 bei der Gewinnübergabe in 
Eschwege 



PC 3086 

PC 3286 

pc 3386 

Prozessor 

8086 

80286 

80386 SX 

Geschwindigkeit 

8 MHz 

16/8/5/4 MHz 

20 / 10 / 

7/5/4 MHz 

Hauptspeicher 

640 kByte 

1 MByte' 

1MByte 1 

Festplatte 

30MByte 

40MBytc 

40 MByte 

Steckplätze: 




8-Bit halbe Länge 

1 

1 

1 

8-Bit volle Länge 

3 

1 

1 

16-Bit halbe Länge 

0 

1 

1 

16-Bit volle Länge 

0 

2 

2 

Grafik 

VGA 

VGA 

VGA 

serielle Schnittstellen 
parallele Schnitt- 

1 

1 

1 

stellen 

1 

1 

1 

Maße 425mm (Breite) 

/ bis 16 MByte erweiterbar 

2 Werte gelten für edle Geräte 

390mm (Länge), 135mm (Höhe)2 


ne Hardware-Komponenten. Im 
einzelnen handelt es sich bei der 
neuen Reihe um einen XT (PC 
3086), einen AT (PC 3286) und 
einen 386er SX (PC 3386). Alle 
Modelle werden standardmäßig 
mit VGA-Dispiay und eingebau¬ 
tem 3,5-Zoll-Laufwerk ausge¬ 
liefert. 


Bis auf das XT-Modell werden 
die Geräte mit internem 
16/32-Bit-Bus, einem über das 
Setup änderbaren Expandcd 
Memory oder LIM-Extended 
Memory ausgerüstet sein. 
Die wichtigsten technischen Da¬ 
ten im Überblick: 



Die neue 
Reihe der 
Amstrad- 
PCs wird 
in neuem 
Kleid er¬ 
scheinen 
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I—Software-Review 


Frisch ausgepackt, kurz 
angespielt 

Neue CPC-Unterhaltungs-Software 
auf einen Blick 

Das Schwinden des Sommerlochs brachte auch für den CPC eine ganze 
Reihe an neuer Spiele-Software. Bei der Flut von Spielen haben wir diesmal 
einen Überblick der genauen Betrachtung vorgezogen. Eine Marktübersicht 
aller momentan erhältlichen Spiele soll Ihnen ergänzend zeigen, wo Sie die 
Software für die unterhaltsamen Stunden am Computer bekommen 
können. 


iTEBpmi 


Eine außergewöhnliche Präsentation 
des Tennisspiels am Computer bietet 
diese neue Sportsimulation von Palace. 
Zehn verschiedene Sichtwinkel sind 
wählbar. Aufgrund der unterschiedli¬ 
chen Größendarstellungen ist das Pro¬ 
gramm natürlich nicht in jedem Blick¬ 
winkel spielbar. Die Animation der Fi¬ 
guren — per Strichgrafik dargestellt — 
ist sehr realitätsgetreu. Die Spielbar- 
keit ist gewöhnungsbedürftig, aber bei 
welchem Programm trifft das nicht zu? 
Laut Herstellerangabe steht dem Pro¬ 
gramm eine neunmonatige For¬ 
schungsphase voraus; die Präsentation 
von International 3D Tennis läßt dieses 
erahnen, ob das spielerische Moment 
hier mitkommt, sei dahingestellt. 
— 
International 3D Tennis 
Preis: 44,95 DM 
Hersteller: Palace 
Deutscher Vertrieb: 

United Software 



Das neue Produkt der Macher von 
“Ghouls’n’Goblins“ und "Black Ti¬ 
ger“. In diesem Spiel geht es darum, 
acht Legionen zu vernichten, die den 
bösen Kriegsherrn Thung Choc unter¬ 
stützen. Hoch auf dem braunen Pferde 
verteilt man zur linken und zur rechten 
Hiebe, um den Bösewichten den Gar¬ 
aus zu machen. 

Die Einleitung des Spiels ist farbenfroh 
und mit sehr guten Grafiken unterlegt. 
Der Spielspaß ist mittelmäßig. Ein mit¬ 
gelieferter Aufkleber verschafft der 
Herstellerfirma dann auch noch einen 
kostenlosen Werbeträger, sofern man 
ihn denn aufkleben sollte. 


Dynasty Wars 
Preis: 44,95 DM 
Hersteller: Capcom 
Deutscher Vertrieb: 
United Software 



Einmal mehr muß der gute Albert Ein¬ 
stein sein Konterfei für ein Computer¬ 
spiel hergeben. Das faltige Antlitz des 
Genies soll in der Regel geistig anspre¬ 
chende Programme implizieren. Viele 
Gegenbeispiele sind bekannt, bei E- 
Motion stimmt allerdings die gewollte 
Aussage mit dem überein, was sich 
nachher auf dem Computer darbietet. 
Das Prinzip des Spiels ist dabei recht 
einfach: Auf dem Monitor präsentieren 
sich Level für Level verschiedenfarbi¬ 
ge Kugeln, die mit der Zeit immer stär¬ 
ker pulsieren und schließlich zerplat¬ 
zen. Solche Explosionen sorgen für 
Energicverlust beim Spieler. Seine 
Aufgabe ist es, durch Anstupsen die 
Kugeln so zu bewegen, daß sie mit 
gleichfarbigen Zusammenstößen. Dann 
und nur dann verschwinden beide Ku¬ 
geln von der Bildschirmfläche. Stoßen 
zwei nicht gleichfarbige Kugeln zu¬ 
sammen, so entstehen neue Kugeln, für 
die die gleichen Regeln gelten wie für 
die ursprünglichen. Neue Kugeln kön¬ 
nen allerdings noch kurz nach Entste¬ 
hen als Energie aufgesammelt werden. 
Ein Level ist beendet, wenn keine Ku¬ 
geln mehr zu sehen sind oder der Spie¬ 
ler das Zeitliche gesegnet hat, weil er 
zu vielen Explosionen beigewohnt hat. 
Da das Spiel völlig grafisch gelöst wur¬ 
de, kommt der CPC ab einer bestimm¬ 
ten Anzahl von sich bewegenden Ku¬ 
geln ganz schön ins Schwitzen. Das ge¬ 
statten wir ihm aber großzügigst, da es 
sich bei E-Motion um ein wirklich fan¬ 
tastisches Spiel handelt. 

Lesen Sic bitte weiter auf Seite 69 




Eine der zehn verschiedenen Sicht winke! von International 3D Tennis 


E-Motion stellt den Spieler vor Aufgaben, die sein Hirn beanspruchen 
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Versandbedingungen: 

* Unabhängig von der Anzahl der bestellten Produkte, Programme und Bücher berechnen wir bei jeder Sendung für das Inland 4-DM. für 
das Ausland 6 - DM Porto und Verpackung. Alle CPC- und Joyce-Software-Produkte werden, wenn nicht anders angegeben, auf 3-Zoll-Dis¬ 
ketten ausgeliefert. Bitte beachten Sie die jeweiligen Bestellnummern und benutzen Sie bitte die der Ausgabe beigefügten Bestellkarten. 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen, Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC 

Hervorragend in Preis und Leistung dm 59,- 


T urbo-D AT A-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu I 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker • Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskettenmanager Verwaltung, Archivierung, Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten - mit Disksort-Star kein Problem. 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafiken. Zur Bedienung Ist 
ein Joystick oder eine Maus nicht notwendig. Auf Tastendruck werden Sie mit Hilfsmenüs 
durch das Programm geführt. 

CREATOR-STAR 

Erstellen Sie eigene Trickfilme auf Ihrem CPC - mit einem Kulissen- und Sprite-Designer 
sowie beliebigen Laufschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen übereinandergelegt werden, 

STAR-MON 

Professionelle CPC-Programmierung mit Assembler, Disassembler und Monitor. Das 
System besitzt einen eigenen Diskettenmonitor und Editor, eine Trace-Funktion, kann 
Breakpoints setzen und Bankswitching vornehmen 

CPC Special Offer 2 

Für CPC-Profis dm 59,- * 




















CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 


FABACOM - 

schnell durch Compilierung 


DM 49,- 


FAst BA 



BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 


Cd 

ORGATEC 


INTERNATIONALE 
BÜROMESSE KÖLN 
25.-30. OKI. 1990 


HALLE 2.1 

GANG F. STAND 42 


ORGATEC 


INTERNATIONALE 
BÜROMESSE KÖLN 
25.-30. OKI. 1990 


GANG F, STAND 42 





























Das Software-Experiment 

Spielend den CPC beherrschen lernen 



Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 


Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 


Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 


Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 


Mit roher 
Rechengewalt 

Mit dem "Brute- 
Force’-Algorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spiel "Kalaha” al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 



dem schlagen? 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 


Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 




Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 
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Word ketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 


Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 



Das Software-Experiment 
Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,- 






































CPC-Spiele 


Zu unglaublichen Preisen! 


Faszination in 3D 

Zwei Super-Aktion-Spiele inklusive 
3D-Brille 


Know CPC 

Interessantes Frage- und Antwortspiel für die 
ganze Familie 


3D-LightCycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
ß man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darstellung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

Für alle CPC 464,664,6128 mit Farbmonitor Das Spiel 3D-LightCycle 
kann in 2D-Darstellung auch auf Grünmonitor gespielt werden. 


DM 29,- !i 


DM 39,-* 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-' 1 ' 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, einstell¬ 
barer Spielstärke und deutscher Bedienungsanleitung 

Kassette dm 10,-* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 

Special Otters III 

Neun interessante Spiele für alle CPCs 
2 Disketten, dm 39,-* 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 

Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 

Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Funbouncer - schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 


DM 29,-* 
































CPC-Einzelhefte 1989 



CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten Ihre Sammlung 
der Amstrad International vervollständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 


Einzelhefte 1989 



pro Ausgabe DM 6>50 

Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 und 1/89 dm 39/ 


i 

































Helfen Sie mit, 
die Zukunft der 

PC Amstrad 
international 

zu planen! 



Information 

über 

CPC und PCW Joyce 

sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 


1 Sond erhefte • Sammelordner • Demo nstrationen ] 


Ausgabe DATABOX 


DOS EXTRA 

DM 18,- 

2 Stk. 5 1/4“-Disk 

DM 35,- 

1 Stk. 3 1/2“-Disk 

DM 35,- 

□ 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

□ 3811 

□ 3812 

□ 382 Nr. 5 

□ 3813 

□ 3814 

□ 383 Nr. 6 

□ 3815 

□ 3816 

□ 384 Nr. 7 

□ 3817 

□ 3818 

□ 385 Nr. 8 

□ 3819 

□ 3820 

□ 386 Nr. 9 

□ 3821 

□ 3822 

□ 387 Nr. 10 

□ 3823 

□ 3824 

□ 388 Nr. 11 

□ 3825 

□ 3826 

□ 389 Nr. 12 

□ 3827 

□ 3828 

Pascal 

Sonderdruck 

□ 346 

□ 347 

DMV-Computer- 
wissen Band 1 

□ 3512 

□ 3513 

DOS- 

5 1/4"-Diskette 

3 1/2“-Diskette 

Taschenbücher 

DM 24,- 

DM 24, - 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

□ 60521 

□ 60522 

BAND 4 

□ 60531 

□ 60532 



Best.-Nr._DM 

□ 60500 DOS-Taschenbuch Band 1 29,80 

□ 60510 DOS-Taschenbuch Band 2 29,80 

□ 60520 DOS-Taschenbuch Band 3 29,80 

□ 60530 DOS-Taschenbuch Band 4 29,80 

□ 402 Die Basic2-Toolbox 49, - 

□ 403 Die Basic2-Toolbox, 5 1/4‘-Diskette zum Buch 29, - 

□ 345 PASCAL Sonderdruck 25, - 

□ 3511 DMV-Computer-Wissen, Band 1. Basic-Toolbox 18, - 

□ 482 QuickStart ConText PRO 19,80 


Sammelordner 


2 Stk. 15,80 


□ 530 DOS 

□ 534 toolbox 

□ 536 DOS TEST 


□ 531 PC International 

□ 535 PCpur 

□ 537 AMIGA DOS 


Zwischensumme + Porto und Verpackung 
(Inland 4,- DM, Ausland 6,- DM)_ 


Demodisketten jeweils DM 5,- 


toolbox-PD-Service jeweils DM 10, 


□ 001 Fraktal 3D + MaskEdit 

□ 003 ERGO 3.0 

□ 005 ConText PRO 

□ 007 3D-Draw 1.0 

□ 008 DMV-Show-Manager 
P 009 Navigator 4.0 

□ 012 GraphBas PC 


5 1/4' 

□ 296 
Ü2652 
D 2654 
C 2656 


'J2653 
3 2665 


PD-Moduia-Complter. MS-COS 
PD-PrrtogCompfer, MS-OOS 
SSQL-OaMartabfrage 
Quick-Bastc-Clbungscompiler 


Gesamtbetrag: 


DM 


Einzelhefte und DATABOX 


Einzelheft 
Ausgabe 
6,- DM/Stck 

CPC 
Kassette 
14,- DM/Stck. 

CPC 

3"-Diskette 
24,- DM/Stck. 

Joyce 
3"-Diskette 
24,- DM/Stck. 

PC 1512 
51/4"-Dlskette 
24,- DM/Sick. 

1'87 bis im 
(Bitte eintragen) 





□ 

* 

- 

□ 

□ 

□ 

□ 



□ 

□ 

D 

□ 



□ 

□ 

C 

□ 

1’89 

- 

□ 

□ 

□ 

□ 

2'89 

- 

□ 

□ 

□ 

□ 

3'89 

- 

□ 

□ 

□ 

□ 

4'89 

- 

□ 

□ 

□ 

□ 

5'89 

- 

□ 

□ 

□ 

□ 

6'89 

C 

□ 

□ • 

□ 

□ 

7'89 

□ 

□ 

□ 

□ 

□ 

B'89 

□ 

□ 

□ 

□ 

U 

9'89 

□ 

□ 

□ 

□ 

□ 

10'89 

□ 

□ 

□ 

□ 

□ 

11'89 

□ 

□ 

□ 

□ 

□ 

12’89 

□ 

□ 

□ 

□ 

□ 

1'90 

□ 

□ 

D 

□ 

□ 

2’90 

□ 

□ 

C 

□ 

□ 

3'90 

□ 

□ 

c 

□ 

□ 

4’90 

□ 

□ 

c 

□ 

□ 

5'90 

□ 

□ 

□ 

- 

□ 

6/7’90 

□ 

□ 

□ 

- 

□ 

8/9'90 

□ 

□ 

□ 


L 10/11'90 

□ 

11 

□ 



+ Porto/Verpackung 

(Inland 4,- DM. Ausland 6,- DM) _ DM 


Sonderheft und DATABOX 


CPC-Sonderheft 
DM 14.- 

DATABOX 

3-Zoll-Diskette 

Kombipack 

Sonderheft + DATABOX 
3-Zoll-Diskette DM29,- 

□ 309 Nr. 3/86 

□ 319 DM 29,- 

T. 3044 

□ 311 Nr. 5/87 

□ 334 DM 38, - 

C 3045 

□ 312 Nr. 6/88 

□ 340 DM 38, - 

□ 3046 

□ 313 Nr. 7/88 

□ 3135 DM 38. - 

□ 3047 

□ 3136 Nr. 8/89 

F 3142 DM 38, - 

□ 3048 


□ Best.-Nr. 3043 CPC-Sonderheft-Kraftpake 

5 Stck. CPC-Sonderhefte 3, 5, 6, 7, 8 

DM 35, 


□ Best.-Nr. 3042 Sammelpack 1988 

12 Ausgaben PC Amstrad Internation; 
1/88 bis 11/88 + 1/89 


Gesamtbetrag: ===== _____ == _ = _ C 



Software 

für 

CPC und PCW Joyce 

erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


CPC-Bestellservice _j [ Joyce-Bestellservlce 


3"-Diskette 

Kassette 

DM 

□ 

207 

- 

ConText CPC, Textverarbeitung 59,- 

□ 

202 

- 

CopyShop, Hardcopy-Programm 49, - 

□ 

214 

- 

Turbo Data CPC 

69,- 

□ 

205 

- 

Special Offer 2 

59,- 

□ 

213 

- 

Software-Experiment 

39,- 

□ 

209 

- 

FaBaCom, Basic-Compiler 

49,- 

□ 

104 

- 

Startest 

19,- 


- 

□ 130 

Cyrus Il-Schach 

10,- 

□ 

1011 

- 

Fantastic Four, Spielesammlung 

29,- 

□ 

107 

- 

Special Offer 3, Spielesammlung 

39,- 

□ 

1369 

- 

Faszination 3D 

39,- 

□ 

1012 

- 

Game-Box III 

29,- 

□ 

106 

- 

Know CPC 

29,- 

□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 


+ Porto/Verpackung 


3"-Diskette 


Joyce-Software 


DM 


□ 215 

□ 216 

□ 217 

□ 219 

□ 220 
□ 221 
□ 222 


Volume 1, Charakter-Designer 

49,- 

Volume 2, Dateiverwaltung 

49,- 

Volume 3, GSXplot 

59,- 

Volume 4, Bild-Editor 

49,- 

Volume 5, Datenbank 

69,- 

Volume 6, Tabellenkalkulation 

59,- 

Volume 7, Grafische Benutzeroberfläche 

69,- 


Joyce-Sonderheft-Pakete 


□ 3050 

□ 3051 

□ 3052 


Sonderheft 2 + DATABOX, 2 Disketten 3" 29, - 
Sonderheft 3 + DATABOX, 2 Disketten 3" 29, - 
Sonderheft 4 + DATABOX, 2 Disketten 3“ 29, - 


Joyce-Bücher 

□ 406 Joyce - mehr als ein Textsystem 

+ DATABOX, Diskette 3“ 49, - 

□ 401 Praktische Textverarbeitung mit Joyce 

+ DATABOX, Diskette 3" 49, - 


(Inland 4,- DM. Ausland 6,- DM) 


DM Gesamtbetrag: 


DM 

































































































































Bitte 

ausreichend 

frankieren 


Einzel hefte 


J 3 , ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Antwortkarte 


Name 


Straße/Postfach 


PLZ/ORT 

C Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD), 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


1 Entscheiden 


Sie sind treuer Leser der PC 
Amstrad International und wol¬ 
len auch in Zukunft nicht auf 
Informationen zu Ihrem Com¬ 
puter, Tips und Tricks und die 
gute Software verzichten. 

Die Entscheidung darüber, in 
welcher Form die Zeitschrift 
weiterbesteht, liegt auch in Ih¬ 
ren Händen. Beteiligen Sie 
sich an umserer Umfrage - 
Ihre Meinung ist uns wichtig. 


4fr Samme[^B 

PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 

• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 



Bitte 

ausreichend 

frankieren 


CPC-/PCW-Joyce-Bestellservlce 

Ja, ch mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte, Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


° LZ/ORT 

I j Dan Betrag bezahle ich mit dem beigefügien Verrechnungsscheck, 

D Ich bille um Ueferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Dalum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert. 
Und vergessen Sie nicht: Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 

• preisgünstig 

• bewährt 

• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
ware wurde bestellt am 
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Zum Sammeln 
unentbehrlich 


Die 

DMV-Sammelordner 


Son derhe fte • Sammelordn e r • Demonstrationen J 


Ausgabe DATABOX 


DOS EXTRA 

DM 18.- 

2 Stk. 5 1/4“-Disk 

DM 35,- 

1 Stk. 3 1/2“-Disk 

DM 35,- 

□ 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

□ 3811 

□ 3812 

□ 382 Nr. 5 

□ 3813 

□ 3814 

□ 383 Nr. 6 

□ 3815 

□ 3816 

□ 384 Nr. 7 

□ 3817 

□ 3818 

□ 385 Nr. 8 

□ 3819 

□ 3820 

□ 386 Nr. 9 

□ 3821 

□ 3822 

□ 387 Nr. 10 

□ 3823 

□ 3824 

□ 388 Nr. 11 

□ 3825 

□ 3826 

□ 389 Nr. 12 

□ 3827 

□ 3828 

Pascal 

Sonderdruck 

□ 346 

□ 347 

DMV-Computer- 
wissen Band 1 

□ 3512 

□ 3513 

DOS- 

5 1/4“-Diskette 

3 1/2“-Diskette 

Taschenbücher 

DM 24, - 

DM 24, - 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

□ 60521 

□ 60522 

BAND 4 

□ 60531 

□ 60532 


Best.-Nr._DM 

□ 60500 DOS-Taschenbuch Band 1 29,80 

□ 60510 DOS-Taschenbuch Band 2 29,80 

□ 60520 DOS-Taschenbuch Band 3 29,80 

□ 60530 DOS-Taschenbuch Band 4 29,80 

□ 402 Die Basic2-Toolbox 49, - 

□ 403 Die Basic2-Toolbox, 5 1/4“-Diskette zum Buch 29, - 

□ 345 PASCAL Sonderdruck 25, - 

□ 3511 DMV-Computer-Wissen, Band 1, Basic-Toolbox 18, - 

□ 482 QuickStart ConText PRO 19,80 


Sammelordner 


2 Stk. 15,80 


□ 530 DOS 

□ 534 toolbox 

□ 536 DOS TEST 


□ 531 PC International 

□ 535 PCpur 

□ 537 AMIGA DOS 


Zwischensumme + Porto und Verpackung 
(Inland 4,- DM, Ausland 6,- DM)_ 


Demodisketten jeweils DM 5,- 


□ 001 Fraktal 3D + MaskEdit 

□ 003 ERGO 3.0 

□ 005 ConText PRO 
D 007 3D-Draw 1.0 

□ 008 DMV-Show-Manager 

□ 009 Navigator 4.0 
C 012 GraphBas PC 


toolbox-PD-Service jeweils DM 10,- 


5 1/4“ 
D 296 

3 1 ir 

PD-ModtfaCompiler, MS-OOS 

i:26S2 

1 2653 

PD-Prdog-Compiler, MS-OOS 

Z2654 

12655 

SSQL-DalerbarÄabfraga 

C 2656 

- 

Quek-Bask-iSxjngscorrptl« 


Gesamtbetrag: 


DM 


PC- 

Software 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 


PC-Software 


5 'l*‘ 

3 ’/a“ 

DM 

2282 

□ 

2281 □ 

ConText EASY. 

99,- 

2407 

□ 

2408 □ 

ConText PRO, 

199,- 

2409 

U 

2410 LI 

Upgrade - ConText PRO 

129,- 

2415 

1 1 

2416 □ 

ConText-ADREVA, AdreBverwallung 

49.- 

2419 

IJ 

2420 □ 

ConText-Zelchenedltor 

99.- 

2421 

u 

2422 0 

ConText-Rechtschrelbhllfe 

69.- 

2650 

u 

2651 □ 

DMV-Power-Pack 

349,- 

256 

ü 

257 \ 

PC-VIrusDoktor, 

99.- 

2903 

D 

2904 D 

PC-VIrusRnder 

149,- 

2905 

u 

2906 Q 

GraphBas PC, Turbo/Power Basic 

99,- 

2907 

u 

2908 □ 

GraphBas PC, Microsoft Quick Basic 

99.- 

2615 

u 

2616 3 

H.A.I.-Tech, 

199,- 

2522 

u 

2521 J 

ERGO 3.0, DOS-Benutzeroberfläche 

199,- 

229 

□ 

235 D 

Hyperkey. Version 4.0, 

99,- 

2702 

IJ 

2703 

DMV-Show-Manager 

199,- 

238 

1.1 

239 ü 

MaskEdit Plus mif einem Treiber 

99,- 

2613 

ü 

2614 _j 

MaskEdit Plus, Pakol mit zwei Treibern 

149,- 

2621 

LI 

2622 1 

MaskEdit Plus, Paket mit drei Treibern 

199,- 



Quick 

Pascal 3/4/5 Mlcrosotl C Modula-2 Basic 

Basic 

L 

2632 

□ 2633 1 2634 CI 2635 

□ 2636 

227 

ü 

233 

BCI DlsAsm/186, (MS-DOS) 

199,- 

2909 

1 1 

2910 1 

TopSpeed C: Standard-Edition 

498,- 

2911 

1 1 

2912 _j 

TopSpeed C: Exlended-Edllion 

1198,- 

2913 

LI 

2914 

TopSpeed C: Standard-Edlllon OS/2 

1498,- 

2915 

U 

2916 

TopSpeed C: Extended-Edrtlon OS/2 

1996,- 

2917 

1 1 

2918 - 

TopSpeed Modula-2, V. 2.0: Slandard-Edition 

498,- 

2919 

IJ 

2920 0 

TopSpeed Modula-2, V. 2.0: ExtendedEOIon 

1198,- 

2921 

U 

2922 

TopSpeed Modula-2, V. 2,0: Standard-Ed.0S8 

1498,- 

2923 

1 1 

2924 

TopSpeed Modula-2, V. 2.0: Extondod-Ed. OS* 

1996,- 

6W1 

ü 

6002 _! 

DOS-Tools 1, RSM-Manager 

69.- 

6007 

ü 

6008 

DOS-Tools 4, 3D-Draw. Version t.O 

99,- 

6017 

ü 

6018 

3D-Drnw Professional 

199,- 

6019 

IJ 

6020 ' 

Navigator 4.0 

69.- 

6009 

ü 

6010 

DOS-Tools 8, GW-Basic-Teolbox-Obürtllcte 

69.- 

6011 

1 1 

6012 

DOS-Tools 6, GWSasic-TwIbcw-OOS-Funkbonsn 

69,- 

6013 

□ 

6014 D 

DOS-Tools 7, GV/BasIc-Toolbox-Horcules-Gratlk 

69,- 


5 ’/4“ 

3 ’/z“ 


20500 3 

20501 ~ 

PC-Software pur, MulllFonl Plus 

20502 3 

20503 3 

PC-Software pur, Zusalzlonts MuWFonl Plus 

20504 □ 

20505 □ 

PC-Software pur, ASCII-TIger, Prograrnniiidfla' 

20506 3 

20507 _i 

PC-Software pur, Festplaiton-Opilmieror 

20508 1 

20509 L 

PC-Software pur, Maste'Da: Datenbank 

20510 P 

20511 C 

PC-Software pur. MS-DOS lemprogtamm 

2804 3 

2805 C 

toolbox Spezial II, PASCOMP 

2808 3 

2809 C 

loolbox Spezial IV, CALC 

2811 3 

2812 C 

toolbox Spezial V, STRUKTO 

2815 0 

26)6 C 

toolbox Spezial VII, di, Silbentrennung 

2819 i 

2820 C 

toolbox Spezial IX, HPGL-Plotter 

2823 ~ : 

2824 G 

toolbox Spezial XI, MAP. MARK S RELEASE 

2827 - 1 

2828 C 

toolbox Spezial XIII, Tnckfele Vol. 1 

2829 3 

2830 □ 

toolbox Spezial XIV, Trickkiste Vol,2 

2831 □ 

2832 □ 

toolbox Spezial XV, Fitllng & Un.-Glel. 

2833 . 

2834 □ 

toolbox Spezial XVI, nat.-sprachl. Schnittst 

2835 

2836 □ 

toolbox Spezial XVII, Slß&ÄfrSotWti 

2837 

2836 □ 

toolbox Spezial XVIII, AfcUK KUsdMNIOg 

2839 Z 

2640 □ 

toolbox Spezial XIX, Sralk & Spttmawuiunng 

2361 

2362 □ 

MAUSALL Plus 

1371 _ 

1372 □ 

PC-Splele-Sampler 

161 

162 □ 

KNOW-PC, Unterhaltungsspiel 

1293 Z 

1294 □ 

Ergönzungsfragon zu KNOW-PC 

248 G 

249 □ 

Fraktal-Genorator 3D, MS-DOS 

1374 L 


Populous PC 

1375 (_ 

1376 □ 

Bards Tale II 

1377 

1378 □ 

Starfllght 

1379 1 

1380 □ 

Indianapolis 500 

1381 C 

1382 □ 

Oll Imperium 

1383 G 

1364 □ 

Loom 

1385 r 

1366 □ 

Zak McKrackan 

1387 n 

1386 □ 

Manlac Manslon 

1389 3 


Jet Pack 

1401 □ 


Dlgl-Joy 


DM 


69,- 

39,- 

69.- 

69,- 

69,- 

69.- 

35,- 

35.- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35.- 

35,- 

35,- 

35,- 


oo, - 
49,- 
49,- 
29,- 
69.- 

89.95 

39.95 

49.95 

49.95 

39.95 

69.96 
69,95 
69,95 

169,- 

59,- 


+ Porto/Verpackung 

(Inland 4,- DM. Ausland 6.- DM) _ DM 


Gesamtbetrag: 


DM 



Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wlrd's gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Siel 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


_Kleinanzeigen-M arkt _ 

Private Anzeigen: Nur DM 5,- je angefangene Zeile. 

Geschäftliche Empfehlungen: DM 8,- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer. 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 

□ private Zwecke □ gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 


INI 



1 1 1 1 

UL 

LU 







! 1 1 

| 


| 

u 

u 

1 1 1 




1 1 1 I 1 1 1 




1 1 1 




1 1 1 

1 LL 




1 


1 1 1 1 1 1 1 



i !. ! 



U 

LJ 




| 

l_l _I 1 1 1 1 LJ f l 

1 1 1 1 



1 1 1 


| 



1 1 1 1 

1 




1 1 1 





i :i Li 

| 




1 1 1 1 

I 

1 1 




1 1 


i i i 






. 1 .. 

1 1 1 






□ Dis Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige) Chiffre-Gebühr 10,- DM inkl. MwSt. zzgl. zum Anzeigenpreis. 
In dieser Rubrik: 

□ Biete an □ Suche □ Tausch □ Stellenmarkt/frele Mitarbeit 

□ Hardware □ Hardware □ Geschäftsverbindungen 

□ Software □ Software □ Verschiedenes 
















































































































IPC- 

Sonderhefte 

Ja, ich mache von Ihrem Angebol Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

L i Den Betrag bezahle Ich mit dem beigefüglen Verrechnungsscheck, 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


PC- 

Software 

i Ja, ch mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewöhllen Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

II Den Betrag bezahle Ich mit dem beigefügten Verrechnungsscheck, 
j Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD). 

I Datum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


. Informieren 


DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikationen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 


Unterschrift (bei MlmJot|6hrigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 


I Straße/Postlach 
9 PLZ/ORT 

I C Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


3 ■ 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 


































































CPC-Sonderhefte 



Bvfusrii v/u/a 
j/d*#: 

'.fWüU'miiMilMfuiiy 


niiüUllüi-. 


1990 


Fm Vortox- Anwencip 

ÜUS-f-rwrttrrunu 

Df.sioo! 


Listfngs: 

I LUClIMULAT01« 
GANGSTEH 
TMC OFStCNIM 

IIOILCNSPIEI ADVfNrUHC 


loolhov 


Pa 




Grurullojjori: 

8cH»n»ipi »>fli .irnmlor»fng 
ii*iohi gumacht 


WC 


iäfcf 


CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 dm 35,-* 

CPC-Sonderheft-Kombipack 


Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX dm 29,-* 

DMV-Sammelordner 

2 Stück dm 15,80* 


© 

O' 

© 


1990 




1990 








































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyqe eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren. Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter, 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce: 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,-* 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,- 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlange. Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schrittweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 
Busineß-Paket nur dm 59,- ' 
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Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesen 1 
Mit GCPM sind Sie über alle Laufwerke immer im Bilde 
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Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 


Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 



Joyce-Tabellenkalkulation 


Joyce-Datenbank 


Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung-mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 


Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioperationen durch Benutzung der RAM-Disk 

• Besonders schnelle Berechnungsalgorithmen für die Felderwerte • Übersichtliche 
Menüführung und 


Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen die^^^L 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Verwendung der RAM-Disk für das 






Abfangen von Fehl¬ 
eingaben • Stan¬ 
dardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendete For¬ 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Beföhle 
zur Verkürzung der 
Formeln und Expo- 
nentialausdrücke 

• Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schriftarten 



Programm 

• Universell durch die Ver¬ 
wendung von Standard- 
Direktzugriffsdateien 

• Bequem durch Datentrans¬ 
fer von vorhandenen in neuan¬ 
gelegte Dateien • Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkriterien oder 
Mehrfachsortierung 

• Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen • Automa¬ 
tischer Eintrag neuer Dateien 
in das Disketten-Hauptmenü 

• Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 






Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 


Joyce-Programmsammlung 5: 

Datenbank (PCW 9512 auf 

dm 69,-* 


Anfrage) 


nur 


Joyce-Zeichensatz-Designer Joyce-Dateiverwaltung 


Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 


Universelle Erstellung und 
Verwaltung eigener Dateien 


Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 


Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 


Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen und Abspeichern von Bildschirm-Zeichensätzen 

• Drucken von vorformatierten ASCII-Texten unter CP/M Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumtang enthalten 

• Bonusprogramm zum Einstellen der Joyce-Schnittstelle und Tastatur 


SuperDat - Super-Dateiverwaltung für Ihre Daten: 

• Komfortable Eingabe der Daten in eine Eingabemaske 

• Mehrere Arten von Suchtunktionen, z B. auch Suche mit Jokern 

• Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 


SuperTex - verarbeitet Ihre Daten automatisch: 

• Einfügen von ausgewählten Einträgen aus SuperDat-Dateien in Text 

• Umwandlung von bis zu 30 Datensätzen In eine LocoScript-Datel 


MGX - Funktionen und Meßwerte grafisch aut Bildschirm und Drucker: 

• Arithmetische Grund- und Sonderfunktionen sind darstellbar 

• Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 

• Druckerausgabe der Ergebnisse im Großtormat möglich 

• Neben einer Klammerebene ist eine Memory-Funktion integriert 


SuperCal - der Tachenrechner für den Joyce: 

I Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozentfunktionen 


• Neben einer Klammerebene ist 
eine Memory-Funktion integriert 


Joyce-Programmsammlung 1: 


Zeichensatz-Designer 


nur DM 49,- 


Joyce-Pro- 
gramm- 
sammlung 2: 

Dateiverwaltung 
nur DM 49,-' 
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Prozeduren 
zumZolchnen 

P rogra m m e : 

Mlnl-DTP 


Sonderheft 

Joyce 

2/87 


Programme: 

Adrett- und 
Archiv vor waitung 


Hardware: 

ZweillaulwerK 


Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 


Joyce-Sonderheft 2: 

• Adreßverwaltung 

• Archivprogramm (Video- oder Literaturverwaltung) 

• Pascal-Compiler in Basic 

• Suburbia (Spiel ähnlich Monopoly(R)) 

• Turbo-Pascal-Grafikroutinen ohne GSX 

• Komfortable Balkengrafik 

• Joyce-Zweitlaufwerk selbst anschließen 

• 3D-Plotter 

• Etikettendruckprogramm 

• Ordnung auf der Diskette mit LocoScript 

• dBase-Handbuch selbst ausdrucken 

• LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX 


Aus dem Inhalt: 


Joyce-Sonderheft 4: 


• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


• Strickmustergenerator 

• Wordstar-Verbesserungen 

• Bundesligasimulation 

• Super-Reaktionsspiel Filemanager 

• Pulldown-Menüs 

• Astrologieprogramm 

• Diskettenmonitor 

• Hauptstädte raten in LOGO 

• Statuszeile für dBase und Basic 

• Hardcopy-Routine für 24-Nadler 

• LOGO macht Schachteln 

• dBase-Literaturverwaltung 

• Universelles Werkzeug zur Veränderung von 

• Joyce-Sonderheft-Kombipack 


Joyce-Sonderheft 3: 


dBase-Dateien 


DM 29,-* 
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• Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Seiten mit farbigen Abbildungen, Leinen- 

Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 

Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 


DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 

Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 


JOYCE 


JOYCE -mehr als ein Textsystem 

Anwondunaen und Problemlösungen 


Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 

OUTs und POKEs unter Basic 


EUMK 


onvorlag 


Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 
Leinen-Hardcover, 
Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,-* 


Aus dem Inhalt: 


• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 


Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben, Etiketten, 
Formularen. Schriften, Bildschir¬ 
minstallationen und vieles mehr. 























Meisterstücke der Computergrafik 


High-Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 

Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 
Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 
einstellbar 


Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Mehrere separate Bildspeicher: 

Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 
men 

Phantastische Farbmöglichkeiten: 
Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben 


Fraktal-Generator 3D PC 
Spezialversion für Amstrad/Schneider 1512 
alle PC/XT/AT mit EGA- oder VGA-Karte 

DM 69,-* 


Fraktal-Generator 3D CPC 
3-Zoll-Diskette dm 49,-* 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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E-Motion 

Preis: 49.95 DM 
Hersteller: U.S. Gold 
Deutscher Vertrieb: 
United Software 




Das Spielfeld wird aus der Kanzel des eigenen Kriegsgeräts betrachtet 


Das Magazin 


Fortsetzung von Seite 52 

Viele Bücher sind geschrieben worden, 
die sich mit dem Thema Flugsimula¬ 
tion befaßt haben. Dieses immer junge 
Thema auf dem Computer führt zu im¬ 
mer neuen Varianten, die aufgrund der 
weniger populären Fliegerei von Flug¬ 
hafen zu Flughafen immer mehr mit 
kämpferischen Elementen bestückt 
werden. Soll wie im vorliegenden Fall 
bombardiert werden, so ist man mitt¬ 
lerweile wenigstens so vernünftig ge¬ 
worden und verzichtet darauf, Städte 
dem Erdboden gleichzumachen. Ein 
fader Nachgeschmack bleibt aber auch 
dann, wenn das Abwerfen von todbrin¬ 
genden Metallhülsen auf neutralem Bo¬ 
den aufgrund eines Wettbewerbs statt¬ 
findet. 

Fighter Bomber ist, wie üblich, das ra¬ 
santeste und schnellste und verblüf¬ 
fendste Programm dieser Art und ist 
dabei so realitätsnah, daß bei Überstra¬ 
pazieren der “Gas“-Taste die Zahnfül¬ 
lungen zu schmelzen beginnen. Da an 
den Legenden der Werbesprüche im¬ 
mer auch ein Körnchen Wahrheit zu 
finden ist, loben wir das Erscheinungs¬ 
bild des Programms und überlassen es 
jedem selbst, ob er sich den tausend¬ 
sten Flugsimulator kauft oder ob er 
nicht alle meistbietend verkauft, um 
sich von dem Erlös endlich echte Flug¬ 
stunden leisten zu können, diese dann 
aber wirklich von Flugplatz zu Flug¬ 
platz. ohne etwas zu zerstören. 

Fighter Bomber 

Preis: 64,95 DM 
Hersteller: Activision 
Deutscher Vertrieb: 

United Software 


So ein Redaktor hat’s schwör, beson¬ 
ders dann, wenn man frisch zum Chef 
einer neuen Zeitschrift erkoren wurde 
und der hohe Herr des Verlags um Pro¬ 
fite bittet. Da gibt es dann eine Menge 
zu tun, denn der Konkurrenzkampf ist 
alles andere als leicht. 

Mit dem Magazin kann man nun die 
täglichen Probleme der Zeitungspro¬ 
duktion miterleben. Der Spieler hat 
sich um alles zu kümmern. Ob es nun 
die thematische Zusammenstellung des 
Hefts, Sonderseiten und -hefte, Wer¬ 
bung oder Einrichtung einer Redaktion 
geht, alles wird aus dem Chefsessel 
entschieden. Inwieweit die Aktionen 
des Entscheidenden die Käufer zum 
Kiosk gelockt und die Anzeigenkunden 
zu Ausgaben gebracht hat, kann man 
den monatlichen Bilanzen entnehmen. 
Ereignisse sorgen dafür, daß der Chef 
stets alle Hände voll zu tun hat. Beim 
Test wurden dann auch besonders die 
Schwächen der Redakteure genaue- 
stens verdeutlicht, als während des 
Sommerurlaubs ein Mitglied der Re¬ 
daktion mit einer Lawine zusammen¬ 
stieß und nicht mehr zurückkam. 

Das Spiel tritt in die Fußstapfen der so¬ 
genannten “Management-Spiele“. 

Was diesem Programm fehlt, ist die 
Übersicht während des Spiels. Das 
ständige Nachladen der Icons, durch 
die man seine Aktionen auswählt, wird 
mit der Zeit störend, ansonsten lohnt 
das Produkt ein genaueres Hinsehen. 

Das Magazin 

Preis: 44,95 DM 
Hersteller: United Software 
Deutscher Vertrieb: 

United Software 



Verständlicherweise beliebt sind sol¬ 
che Software-Pakete, die mit nur wenig 
oder gar keinem Aufpreis gleich meh¬ 
rere Programme anbieten. Wenn es 
sich dabei dann um eine Zusammen¬ 
stellung altbekannter Spiele handelt, ist 
das auch nicht weiter schlimm, da nicht 
jeder jedes Spiel in seinem Regal ste¬ 
hen hat und der ein oder andere durch¬ 
aus eine Bereicherung seiner Samm¬ 
lung durch solche Zusammenstellun¬ 
gen bekommen kann. 

Die CECCO-Collection bringt vier 
Spiele für diejenigen, denen es mehr 
dämm geht, mittels artistischer Joy¬ 
stick-Bewegungen Ansammlungen von 
wilden Gegnern in komplizierten Räu¬ 
men zu widerstehen. So setzen Exolon, 
Cybernoid, Cybernoid 2 und Storm- 
lord perfekte Joystick-Beherrschung 
und einen erprobten Daumen voraus, 
um erfolgreich gemeistert zu werden. 
Eines haben alle Programme gemein¬ 
sam: Die grafische Gestaltung ist für 
CPC-Verhältnisse durchweg über¬ 
durchschnittlich, und die Bewegungen 
der Spielfiguren sind sehr gut umge¬ 
setzt. Wer es mag und noch keines der 
Programme besitzt, der dürfte mit die¬ 
ser Programmzusammenstellung einen 
guten Fang machen. 
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Sind Sie bei Cybernoid, einem der Programme ans den CECCO-Collec- 
rions, noch im schützenden Raumschiff,... 



. ..so haben Sie bei Exolon der biestischen Mente zu Fuß Herr zu werden 


--— 

CECCO Collection 
Enthaltene Programme: 

Exolon, Cybernoid, Cybernoid 2, 
Stormlord 

Preis: 49,95 DM 
Hersteller: Hewson 
Deutscher Vertrieb: 

United Software 



Die fantastischen Screenshots, die bei 
Dark Century auf der Packung abgebil¬ 
det wurden, sind das erste, was bei die¬ 
sem Program auffällt - sie sind übri¬ 
gens wie üblich nicht vom CPC-Moni- 
tor angefertigt worden. Zum zweiten 
fällt eine ungeheuer lange Ladezeit auf, 
die nach Einblendung einer hübsch ani¬ 
mierten Anfangsszenerie, in der die 
Anzahl der Spieler ausgesucht werden 
kann, verschwindet und sich zu weite¬ 
ren Ladevorgängen verwandelt. Ist 
dem Spieler dann endlich Eintritt in das 
Programm gewährt, so kann er mit in 
einer grafisch gut erstellten Spielumge¬ 
bung seine Aufgaben als Retter des 
Universums erfüllen. Das Spielprinzip 
ist zwar veraltet, dennoch gut umge¬ 
setzt. 


Dark Century 

Preis: 49,95 DM 
Hersteller: Titus 
Deutscher Vertrieb: 
United Software 


»..und was gibt es sonst noch? 


Drei weitere Programme wollen wir 
Ihnen nicht vorenthalten. Ninja Spirit 
und Impossamole sorgen für den nöti¬ 
gen Rabatz auf dem CPC-Monitor. 
Rennen, raufen, retten, die drei “R“ 
der meisten Computerspiele sind auch 
hier wieder einmal zu erfüllen. Bei 
Crack Down werden die drei “R“ in ei¬ 
ner anderen visuellen Präsentation dar¬ 
geboten, der Draufsicht. Das ist auch 
nichts weltbewegend Neues, aber im¬ 
merhin mal eine Abwechslung. 




— 

Crack Down 

Preis: 49,95 DM 
Hersteller: U.S.Gold / Sega 
Deutscher Vertrieb: 

United Software 
Ninja Spirit 
Preis: 49,95 DM 
Hersteller: Activision 
Deutscher Vertrieb: 

United Software 
Impossamole 
Preis: 49,95 DM 
Hersteller: Gremlin 
Deutscher Vertrieb: 

United Software 


GO 


Das übliche letzte Wort sollte eigent¬ 
lich des Autors Lieblingsthema anrei- 
ßen, die Anleitungen. Da allerdings 
das monatliche Wettern gegen diese 
Art von unter aller Würde stehenden 
Spielanleitungen immer noch nichts bei 
den Softwarehäusern bewegt hat, soll 
die Kritik in diesem Artikel nicht wei¬ 
ter vollzogen werden. Die meisten 
Spiele sind ohnehin nicht so konzipiert, 
daß man eine Anleitung dafür benötigt. 
So bleiben die Handbücher, oder bes¬ 
ser Handzettel, gut für eine kurze Belu¬ 
stigung. Also kurz durchlesen, einmal 
lachen und sich dem Spielm widmen. 
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Marktübersicht “Spiele für den CPC“ 


Name 

Deutscher Vertrieb 

Preis Diskettei 

Preis Kassette' 

1 Oer Pack 

Rushwarc 

49.95 DM 

34,95 DM 2 

3D Pool 

Rushware 

19,95 DM 

— 

4th Dimension 

United Software 

59,95 DM 

44,95 DM 

A.P.B. 

Bomico 

49.95 DM 

34.95 DM 

Action Fighter 

Rushware 

49.95 DM 

— 

Arctic Fox 

Rushware 

24.95 DM 


Battle Valley 

Rushware 

— 

9.95 DM 

Black Tiger 

United Software 

49,95 DM 

_ 

Bloodwych 

United Software 

49.95 DM 

34.95 DM 

Bodo Ulgners Super Soccer 

United Software 

49.95 DM 

34.95 DM 

CECCO Collection 

United Software 

54.95 DM 

39.95 DM 2 

Commancl Performance 

Rushware 

— 

29,95 DM 2 

Crack Down 

United Software 

49,95 DM 

34.95 DM 

Dark Century 

United Software 

49,95 DM 

34,95 DM 

Das Magazin 

United Software 

44,95 DM 

— 

Ducl - Test Drive 11 

United Software 

— 

34,95 DM 

Dynasty Wars 

United Software 

49,95 DM 

34.95 DM 

E-Motion 

United Software 

49,95 DM 

34.95 DM 

E. Hughes International Soccer 

Rushware 

49.95 DM 


Epyx Action 

United Software 

64.95 DM 

— 2 

Evening Star/Southern Belle 

United Software 

54.95 DM 

39,95 DM 

Fighter Bomber 

United Software 

64.95 DM 

49,95 DM 

Flimbo’s Quest 

United Software 

49,95 DM 

34,95 DM 

Football Manager World Cup Editor 

United Software 

49.95 DM 

34,95 DM 

Fruit Machine Simulation 

Rushware 

— 

9,95 DM 

(ihostbusters 11 

United Software 

49.95 DM 

39.95 DM 

Halls of Gold 

Rushware 

— 

34,95 DM 

Hammerfist 

United Software 

49.95 DM 

34.95 DM 

Hot Rod 

United Software 

49,95 DM 

34,95 DM 

Hydrofool 

Rushware 

- 

9,95 DM 

Impossamole 

United Software 

49.95 DM 

34.95 DM 

Indoor Soccer 

Rushware 

— 

9,95 DM 

International 3D Tennis 

United Software 

44.95 DM 

34.95 DM 

Jinks 

Rushware 

29.95 DM 


Killapede 

Rushware 

— 

9.95 DM 

Lighttorce 

Rushwarc 

- 

9,95 DM 

Metal Army 

Rushware 

— 

9,95 DM 

Micropose Soccer 

Rushware 

64,95 DM 

54,95 DM 

Mission Jupiter 

Rushware 

- 

9.95 DM 

Mr. Heli 

Rushware 

49,95 DM 


Ninja Spirit 

United Software 

49.95 DM 

34.95 DM 

Ocean Conquerer 

Rushware 

- 

9,95 DM 

Pipe Mania 

United Software 

49.95 DM 

34.95 DM 

Psycho City 

Rush wäre 

— 

9,95 DM 

Pulsoids 

Rushware 

— 

9,95 DM 

Purple Saturn Day 

Bomico 

— 

34,95 DM 

Rad Rantp Racer 

Rushware 

— 

9,95 DM 

Rai ly Driver 

Rushware 

— 

9,95 DM 

Riding the Rapids 

Rushwarc 

— 

9.95 DM 

Run for Gold 

Rushware 

— 

9.95 DM 

SAS Combat Simulator 

Rushware 

— 

9.95 DM 

Shanghai Karate 

Rushware 

— 

9,95 DM 

Shanghai Warriors 

Rushware 

— 

9,95 DM 

Silent Service 

Rushware 

59.95 DM 

39,95 DM 

Soccer Boss 

Rushware 

— 

9.95 DM 

Sonic Boom 

United Software 

49,95 DM 

34,95 DM 

Sword Slayer 

Rushwarc 

— 

9.95 DM 

Tim und Struppi auf dem Mond 

Bomico 

49,95 DM 

34,95 DM 

Times of Lore 

Rushware 

49,95 DM 

34.95 DM 

Uridium 

Rushware 

— 

9.95 DM 

Vendetta 

United Software 

49,95 DM 

34.95 DM 

Xybots 

1 Unverbindliche Preisempfchlungeu 

2 Spiele-Sammlungen 

Bomico 

49,95 DM 

34.95 DM 
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100 DM 

für 1 kByte 


Die Heraus¬ 
forderung 


Auch diesen Monat wieder einige sehr interessante Pro¬ 
gramme, Tips & Tricks, die hervorragend in das Kon¬ 
zept der 1-kByte-Programme hinein passen. Als besonde¬ 
ren Bonus für Sie haben wir auch eine RSX-Erweite- 
rung anzubieten, die Sie ständig darüber auf dem Lau¬ 
fenden hält, wie lang Ihr Programm momentan ist. 


Brockel Dir einen 

Mit diesem Programm lassen sich bis zu 20 Buchstaben lange 
Schriftzüge auf den Monitor 'bröckeln’. 

Die Bedienung ist recht einfach: 

• Geben Sie einen beliebigen Schriftzug mit maximal 20 Zei¬ 
chen Länge ein. 

• Je nach der Länge des Schriftzuges warten Sie nun 30 Se¬ 
kunden bis sieben Minuten, um die Daten der Bröckelschrift 
zu generieren. Ist dies geschehen, geben Sie den Namen der 
Datei an, in welcher die Daten abgespeichert werden sollen. 

• Nun fügen Sie folgende Zeilen in Ihr Programm ein: 

0PENIN M ?filename?": 

INPUT#9,z: 

DIM x(z),y(z): 

FOR a=l TO z: 

INPUT #9,x(a),y(a): 

NEXT:CLOSEIN 

• An der Stelle, an welcher der Schriftzug ausgegeben wer¬ 
den soll, muß nun folgende Zeile geschrieben werden: 

FOR A=1 TO Z: 

PLOT XKOORDINATE+X(A),YK00RDINATE+Y(A),FARBE: 

NEXT 

Hierbei müssen Sie beachten, daß die Variablen X- und Y- 
Koordinate sowie die Farbe vorher von Ihnen mit Werten be¬ 
legt wurden. Ansonsten könnte es passieren, daß nichts auf 
dem Bildschirm erscheint. 

• Natürlich möchte man sich, bevor man diese Schrift in sein 
Programm einbaut gerne vergewissern, daß der Effekt auch 
wirkungsvoll ist. Ist dies der Fall, geben Sie — nachem die 
READY-Meldung auf dem Bildschirm erscheint — GOTO 
110 ein, und die eingebaute Demonstrationsroutine läuft ab. 

(Wolfgang Steven/rs) 


Mr. Crunch... 


-S3' , 


...nennt sich dieses Geschicklichkeitsspiel. Hierbei handelt 
es sich um eine Art Pacman ohne Gegner. Ohne Gegner ist 
wohl etwas übertrieben, hat der böse Luigi Nosferatu 
doch alle Wände seines Labyrinths mit Stromlei¬ 
tungen versehen, die mit 220 Volt geladen 
sind. Sie sollten also versuchen, unse¬ 
ren Mr. Crunch heil durch dieses 
Labyrinth zu führen und alle Kek¬ 
se, denen er seine enorme Kraft zu 
verdanken hat, mittels der Cursorta¬ 
sten einzusammeln. Wenn Ihnen das 



gelingt, haben Sie gleichzeitig den bösen Luigi besiegt, und 
ein neuer Gegner wartet auf Sie. 

Natürlich wurde in diesem Programm aufgrund der 1-kByte- 
Grenze nur ein einziger Level untergebracht, weitere können 
jedoch von Ihnen entworfen werden. 

Um Ihnen die Arbeit etwas zu erleichtern, wurden hierfür die 
Funktionstasten gleich belegt. Fl steht für Keks und F2 für 
ein Mauerstück. 

Achten Sie beim Entwerfen eigener Level jedoch darauf, daß 
das Labyrinth bei einer Breite von 20 Teilen maximal 11 Zei¬ 
len haben darf. 

(Wolfgang Steven/rs) 

Birds 

Wer hat ihn nicht satt, den CPC-Blechdosen-Sound des 
AY-3-8912? Einfache Rechtecksignale, da können noch so 
viele Hüllkurven rübergelegt und noch so vielfältiges Rau¬ 
schen dazugemixt werden, klingen auf die Dauer doch sehr 
eintönig. 

Eine andere Möglichkeit Sound zu erzeugen ist es, mit einem 
DA-Wandler entsprechende Schwingungen zu generieren. 
Wenn nun das Ganze auch noch schnell genug geht, erklin¬ 
gen ganz anhörliche Sounds (ich denk schon wieder, ich sitz’ 
vorm AM1GA). Den Soundchip des CPC kann man mit sei¬ 
nen 16 Lautstärkestufen als DA-Wandler “miß“brauchen. 
Ein kleines Programm berechnet den Frequenzgang des ge¬ 
wünschten Klanges, und ein noch kleineres Maschinenpro¬ 
gramm sorgt dafür, daß die berechneten Werte schnell genug 
in das Lautstärkeregister des Soundchips geschrieben 
werden. 

Das Maschinenprogramm schafft das mit zirka 17 kHz, was 
schon fast HiFi-Qualität ist. Parameter für das Maschinen¬ 
programm sind folgende Werte: 

call &9000,adr,l,w 

adr = Anfangsadresse des Bitmaps des Sounds 
l = Länge des Bitmaps 

w = Verzöge rungswert (1..256; 1 am schnellsten) 

Die Maschinenroutine steht in den DATA-Zeilen 1000 & 1001. 
In der DATA-Zeile 2000 befinden sich die Parameter für die 
Syntheseformel. Sie simuliert zwei Oszillatoren mit den Fre¬ 
quenzen ol & o2 und den Amplituden al & a2, deren Fre¬ 
quenzen addiert werden. Der erste Oszillator kann mit einem 
dritten (of & af) moduliert werden (FM-Modulation). 
Weitere Parameter sind zl & z2, die Frequenzdrift für die bei¬ 
den Oszillatoren, el und Ir bestimmen hierbei das Ein¬ 
schwingverhalten. Mit tr kann eine zufällige Phasendrehung 
erzeugt werden, die mit el zeitlich begrenzt wird (je größer 
el, um so kleiner der Einschwingzeitraum). 

Die Ausschwingzeit wird von dl begrenzt. Durch diese feste 
Vorgabe der Hüllkurvenform lassen sich nur percussive 
Sounds erzeugen. Außerdem kann man noch einen Quasi- 
Raumhall durch von rl bestimmtes Nachrauschen imitieren. 
Die Länge (Tonhöhe) des Signals in Bytes gibt T an. 

Die Anordnung der Parameter in der DATA-Zeile sollte wie 
folgt lauten: 

2000 DATA l,af,of,al,ol,zl,a2,o2,z2,el,tr,dl,rl 

Die gegebene Formel ist nur ein Beispiel, die Frequenzen 
können natürlich auch noch anders erzeugt werden. Wer zum 
Beispiel einen schnellen AD-Wandler sein eigen nennt, kann 
so die verschiedensten Sounds sampeln, oder wer sehr viel 
(Rechen-)Zeit hat, kann sich ja auch einmal an einem Synthi- 
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Emulator probieren (der YAMAHA DX7 hat schlappe sechs 
Oszillatoren mit raffinierten Hüllkurvengeneratoren). 
Zum Ausprobieren noch einige andere Sounds: 


Bell: 

Steeldrum: 

Blub: 

Bass: 

Hat: 

Latin: 

Bongo: 

Middrum: 

Synthtom: 

Bigdrum: 


1000.0,0.40,140,0,80,221,0,30.0.3,5,0 

1200,3,67,35,50,-0.3,35,57,0,0,2,3,0 

1000,0,0,40,30,-1.4,40,25,-1,0,2,3,2 

1500,1,14,50,40,0,0,0,0,0,2,3,0 

1200.0,0,15,944,0,50,10,0,0,0.15,4,14 

1100,0,0,60,44,0,60,72.6,0,20,0,4,8 

1800,0,0.60,100,0.2,55,77,0.2,30,0.5,4.5 

1200,0,0,80,34,0.5,0.0,0,10,0.3,4,14 

1000,0,0,80,26,1,0,0,0,20,0.2,4,2 

1500,0,0,300,19,0.23,-300,18,0.2,20,0.3,6.8 


(Eckart Hilliger/rs) 


LOOK 

Um lange Programme bearbeiten zu können (zum Beispiel 
Texte ins Deutsche übersetzen, Pokes suchen oder nur eben 
mal hineinschauen), ist es notwendig, mit einer sehr kurzen 
Routine einen Hexdump auf den Bildschirm zu bringen und 
dann den RAM-Inhalt gezielt zu verändern. Das Programm 
erzeugt den externen Befehl öLOOK, der entsprechende 
Möglichkeiten bereitstellt. 

Bedienung: 

Nach Aktivieren von 1LOOK wird nach MODE 2 geschaltet. 
In der linken, oberen Ecke erscheint als Hexzahl eine Adres¬ 
se. Diese kann nun mit den CURSOR-Tasten (beziehungs¬ 
weise SHIFT-CURSOR) verändert werden, wobei jeweils 
eine Ziffer dieser vierstelligen Zahl herauf- oder herunterge¬ 
zählt wird. Man stellt die gewünschte Adresse ein. Folgende 
Kommandos sind jetzt möglich: 

R = RAM-Darstellung als Hexdump, jeder beliebige Ta¬ 
stendruck beendet diese Darstellung 

P = Byteeingabe im Hexformat, ENTER beendet diesen 
Modus 

A = Texteingabe als ASCII-Zeichen, ESC beendet 
N = Bildschirm löschen 

Q = Ende des Programms, Rücksprung nach BASIC. 


Natürlich sind auch die entsprechenden kleinen Buchstaben 
als Kommandos gültig. 

Wichtig: Nach dem Eintippen das Programm unbedingt zu¬ 
erst abspeichern, da der BASIC-Lader automatisch gelöscht 
wird. 

(Gerald Schubert/rs) 


Das entspricht soweit ja noch unse¬ 
ren täglichen Computererfah¬ 
rungen und sollte keinen Anlaß 
zur Unruhe geben, denn jetzt 
wird optimiert! Hinter diesem 
Schlag wort der Organisationsstrate¬ 
gen verbirgt sich die wahre Klasse eines 
Programmierers, es ist eine Fähigkeit, durch 
kühne Kniffe und geniale Gedankengänge ein Pro¬ 
gramm so zu verdrehen und unübersichtlich zu gestalten, 
daß gleiche Leistung bei weniger Speicherplatz erreicht 
wird. 

Diese Phase der 1-kB-Programmentwicklung ist die Vorent¬ 
scheidung über Sein oder Nichtsein der Programmidee. 
Es liegt ja nicht an mangelnder Ausdauer, um ein Programm 
kurz und bündig zusammenzustellen, sondern an der recht 
ermüdenden und anstrengenden Datenübertragung und Da¬ 
tenkontrolle. 

Im unpassendsten Augenblick ist todsicher die Diskette voll, 
die Cassette zu Ende, das Zählwerk nicht auf Null gestellt 
oder sonst etwas, was eine schnelle Ermittlung der Pro¬ 
grammlänge erschwert. 

Damit Sie ausgeglichener und somit tatkräftiger Ihre Pro¬ 
gramme entwickeln und angefangene Programme auch fer¬ 
tigstellen können, wurde der “ 1-kByte-Tester“ entwickelt. 
Es handelt sich hierbei um ein Maschinenprogramm, daß die 
Länge eines geladenen BASIC-Programms ermittelt, mit der 
1-kByte-Grenze vergleicht und noch freie oder zuviel ge¬ 
nutzte Bytes auf dem Bildschirm ausgibl. 



Handhabung des “1-kByte-Testers“ 

Zuerst wird das Programm “TEST-1KB“ geladen und ge¬ 
startet. Es generiert ein Maschinenprogramm und belegt drei 
Funktionstasten: 

CTRL + F0 = Starte Masch inenprogramm 
CTRL + Fl = Liste BASIC-Programm 
CTRL+F4 = Gebe Katalog aus 

Jetzt können Sie Ihr eigenes Programm laden und optimie¬ 
ren. Die Länge Ihres Programms wird durch gleichzeitiges 
Drücken der Tasten CTRL + F0 angezeigt. 

(rs) 


Sternen-Himmel 


Dieses Programm ermöglicht Ihnen mit einer kleinen Routi¬ 
ne, die in einer Schleife mit >CALL &A000< aufgerufen 
wird, einen bewegten Sternenhimmel zu erzeugen. Das Pro¬ 
gramm wird wie folgt geladen. Nachdem der BASIC-Lader 
>STERNEN.BAS< den Binärteil erzeugt hat, können Sie 
sich Ihre Laderoutine für diesen schreiben. Sie könnte even¬ 
tuell so aussehen: 

10 LOAD ll STERNEN.BIN“, &A000 
20 CALL &A000 


1-kByte-Tester 

Wenn man öfter zum Tüfteln am Computer sitzt, findet sich 
ja immer etwas, und wenn nach einer zündenden Idee einige 
Programmzeilen eingetippt sind, kommt einem schon mal 
der Gedanke “das wäre vielleicht was für die 1-kByte-Ru- 
brik 

Also noch schnell ein wenig Anwenderfreundlichkeit durch 
zusätzliche Anzeigen, Schriftzüge — hübsch aussehen soll es 
ja auch noch - abspeichern, und “O Gott, 2 kByte !“ - “Da¬ 
bei hätte ich noch so viel unterbringen können“. 


100 GOTO 20 

In die Zeilen zwischen 20 und 100 können Sie nun Ihr 
Programm schreiben. Wichtig ist nur, daß Sie 
mittels CALL &A000 immer eine weitere 
Stufe der Sternenbewegung aufrufen. Zu v . ,. 

beachten ist, daß eine mittels PEN 1 
erstellte Grafik oder Text durch 
die Sterne zerstört wird. Sie sollten '' 
also auf einen anderen Stift auswei- 
chen. 

(Sascha Wilde/rs) 
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für 464-664-6128 

I 

Listing 1 1 Broeckel.Bas 



1 REM Broeckel , 

20 Z=0:MODE 1:INK 0 , 0:BORDER 0:DIM X(700),Y(700 
):INPUT"TEXT (MAX.20) : ",T$:IF LEN(T$)>20 THEN 
20 

30 PEN 2: LOCATE 1,10: PRINT"BITTE WARTEN,COMPUTE 
R ARBEITET.”: PEN 1: LOCATE 1,25: PRINT T$;:BR=LEN 
(T$)*16 

40 FOR A=1 TO BR:FOR B=1 TO 16 
50 IF TEST(A,B)=1 THEN PLOT A,B,3:Z=Z+1 
60 NEXT:NEXT:LOCATE 1,5:PRINT A2$;SPC(9):PRINT 
A3$ :P=0 , 

70 A=INT(RND*BR) +1: B=INT(RND*16)+1:IF TEST(A,B) 
=3 THEN P=P+1:PLOT A,B, 1: X (P) =A:Y (P) =B ELSE 70 
80 IF POZ THEN 70 

90 CLS: LOCATE 1,15: INPUT"NAME:",N$:OPENOUT N$:P 
RINT#9 ,Z: FOR L=1 TO Z:PRINT#9,X(L) ,Y(L) :NEXT:CL 
OSEOUT: END 
100 ' demonstration 

110 MODE 1: LOCATE 5,3: PEN 3:PRINT"Dies ist eine 
Demonstartion von:":PEN 1: LOCATE 13,8:PRINT"BR 
OECKELSCRIPT":PLOT 10,10,3:DRAW 10,390:DRAW 630 
,390: DRAW 630,10:DRAW 10 , 10:K=INT(( 640-BR )/2)-1 
6:FOR M=1 TO Z:PLOT K+X(M),160+Y(M),2:NEXT:CALL 
&BB06: GOTO 110 


[7237] 


[5653] 


[1194] 

[2605] 

[3630] 

[5492] 

[1123] 

[8194] 


[1146] 

[18290] 


Listing 2.1 Crunch.Bas 


1 REM Crunch ro£QC . 

10 C=0:Z=0:DIM F(20,11):CLS:X=2:Y=2 [3686] 

20 DATA 22222222222222222222,211111111111111111 [10715] 
12,21222222211222222212,21222222211222222212,21 
222111111111122212,21222122222222122212,2122211 
1111111122212,21222222211222222212,212222222112 
22222212,21111111111111111112,22222222222222222 
222 

30 KEY 1,CHR$(144):KEY 2,CHR$(233):FOR B=1 TO 1 [11803] 
1:READ A$:FOR A=1 TO 20:I=VAL(MID$(A$,A,1)):IF 
1=1 THEN LOCATE A,B:PEN 1:PRINT CHR$(144):Z=Z+1 
:F(A,B)=1 ELSE IF 1=2 THEN LOCATE A,B:PEN 2:PRI 
NT CHR$(233):F(A,B)=2 
40 NEXT:NEXT:PEN 3 

50 IF F(X,Y)=l THEN F(X,Y)=0:SOUND 1,120,10:C=C 
+1:IF C=Z THEN RUN 

60 IF INKEY(0)=0 THEN RY=-1:RX=0;GOTO 80 ELSE I 
F INKEY(2)=0 THEN RY=1:RX=0:GOTO 80 
70 IF INKEY(8)=0 THEN RX=-1:RY=0:GOTO 80 ELSE I 
F INKEY(1)=0 THEN RX=1:RY=0 

80 IF F(X+RX,Y+RY)=2 THEN END ELSE LOCATE X,Y:P 
RINT" ":F(X,Y)=0:X=X+RX:Y=Y+RY:LOCATE X,Y:PRINT 
CHR$(231) 

90 FOR p=l T0 80:NEXT:GOTO 50 


[1167] 

[5307] 

[4692] 

[4305] 

[6394] 

[784] 


Listing 4,1 Look, Bas 


1 REM LOOK 

10 PRINT:PRINT CHR$(24)+" Neuer externer Befehl 
: |LOOK "+CHR$(24):PRINT:PRINT 

20 r=&A4E0:MEMORY r-l:FOR k=0 TO 2:READ r$:FOR 
i=l TO LEN(r$) STEP 4:b$="":F0R j=0 TO 3:y=ASC( 
MID$(r$,i+j,l)):IF y>62 THEN y=y-5:IF y>91 THEN 
y=y-6 

30 b$=b$+BIN$(y-48,6):NEXT:FOR d=0 TO 2:POKE r, 
VAL("&X"+MID$(b$,8*d+l,8)):r=r+l:NEXT d,i,k:CAL 
L &A4EO:POKE &A4E6,&C9:NEW 

40 DATA 0SaY8TCYkx6wveH3xuFAHoz@0DzzzzzpDU@B3fn 

BS @ gy 7gpOinsGnJevwRLZnJqvsR5unI6a SwpldgppiwoMiz 

Lyw3UEtUQVJu07VKxC8oPf2SgMmDtUC0@K8DtF8O@lmTtGS 

51unI6aSwpldXsUnJGanJGanJGapEM86gpl 

50 DATA dXsUnJGa413oDW3BJ?M621fBEOMy8ApIdVAExB4 

y8ApIdgpIdUME6VD5pQpRix714DIy2gpIdXsBnJGanFivA? 

MMYjtC813JDU@B3fky2gpIdh4MUlXezZ0UJbfBEONvnI6aD 

XfBJ?My8ApIdgqliwoMizsB?2hbnGWaCDA7 

60 DATA lkQ7PrnBJ?PB6@hbnGWaCDS54VBwnJGaDUrBJ?M 

y2gpIdVWtDUrBJ?My2gpIdgq4ilWEzY4UcAqliwoMizvw?C 

DyvmXT4VDBJ?MMvjskqDtVC0@K8Dt7DxXyCXU5zY7MpUTKA 

AbplkQ71wp?dj7a3wMkzXcsOgM7kpevOE3zzz3z40000E3z 

0D004Q00 


[7337] 

[9142] 

[8232] 

[12459] 

[11731] 

[13902] 


Listing 5.1 Test-lkb.Bas 


10 ' TEST-1KB V2.0 90/BB 

20 KEY 148,":CALL &8000"+CHR$(13):KEY DEF 15,0, [2527] 
48,48,148 

30 KEY 149,":MODE 2:LIST"+CHR$(13): KEY DEF 13,0 [2498] 
,49,49,149 

40 KEY 150 ,": CAT"+CHR$( 13 ): KEY DEF 20,0,52,52,1 [2579] 
50 

50 MODE 1: MEMORY &7FFF: FOR i=&8000 TO &80A8:REA [3117] 
D a$:a=VAL{ "&"+a$ ) 

60 s=s+a: POKE i, a: NEXT:IF s<>13524 THEN ERROR 1 [2999] 
7 

70 LOCATE 7,11:PRINT"1 KB - Tester installier [3406] 
t !" 

80 DATA 3E,0A, CD ,5A, BB,21 , 70 , 01 , 4E ,23,46, 2B, 79, [2696] 
B0, 28, 03 

90 DATA 09, 18,F5 , 11 , EE,04 , EB ,ED, 52,38,05,11,55, [2461] 
80,18,09 

100 DATA 11,01,00,EB, ED, 52,11, 37,80, D5,CD,6F,80 [2695] 
,El,7E,B7 

110 DATA C8,CD,5A,BB,23,18,F7,20,42,59,54,45,28 [3415] 
,53,29,20 

120 DATA 5A,55, 20,4C, 41, 4E, 47,20, 46,55, 45, 52,20 [2369] 
,31,2D,4B 

130 DATA 42, 20,21, 0A, 00,20,42,59, 54, 45, 28, 53,29 [1667] 
,20,46,52 

140 DATA 45,49,20, 42, 49,53, 20,31, 2D,4B,42, 20, 21 [1938] 
,0A, 00,7D 

150 DATA B4,20,04,3E,30,18,2F,01,10,27,1E,00,CD [2555] 
,94,80,01 

160 DATA E8, 03,CD, 94, 80,01,64,00,CD, 94, 80,01, 0A [2487] 
,00,CD,94 

170 DATA 80,01,01,00,3E,2F,ED,42,3C,30,FB,09,37 [2598] 
, FE,30,20 

180 DATA 03,7B,18,02,1E,30,C3,5A, BB [1145] 


Listing 3 1 Birds.Bas 


1 REM Birds 

5 MEMORY &3FFF:GOSUB 1000:MODE 2:MOVE 0,200:t=l [1769] 

10 READ l,af,of,al,ol,zl,a2,o2,z2,el,tr,dl,rl [1286] 
20 FOR p=0 TO 1-1:z=p/l:om=z*2*PI:h=al*SIN(0l*0 [7737] 
m*EXP(-z*zl)+af*SIN(om*of))-a2*SIN(o2*om*EXP(-z 
*z2)) 

60 t=t*(l+2*((RND(1)>z*el) AND RND<1)>tr)):var= [8774] 
EXP(-z*dl)*h*t+SIN(z*PI)*(RND(l)-0.5)*rl:DRAW p 
/3,200+var:var=MIN(var+8,15):POKE &4000+p,MAX(v 
ar,0):NEXT p 

140 CALL &9000.&4000,1,INT(RND(1)*15)+l:GOTO 14 [2537] 

0 

1000 DATA FE,03,CO,DD,7E,00,32,39,90,DD,4E,02,D [2298] 
D,46,03,DD,6E,04,DD,66,05,F3,C5,7E,E6 

1001 DATA 0F,4F,3E,08,E5,21,00,F6,ll,8O,C0,O6,F [8468] 

4,ED,79,06,F6,ED,51,ED,69,06,F4,ED,49,06,F6,ED, 

59,ED,69,06,OA,10,FE,El,23,CI,OB,78,Bl,20,D2,FB 
,C9 

1002 FOR i=&9000 TO &9045:READ a$:POKE i,VAL("& [4621] 
”+a$):NEXT:CALL &9000:RETURN 

2000 DATA 1000,0,0,50,333,.08,40,333,-.08,0,2,2 [1946] 

,4 


Listing 6 1 Sternen Bas 


10 FOR i=&AOOO TO &A105:READ a$:POKE i , VAL [3655] 

("&"+aS) : NEXT : SAVE"STERNEN.BIN" , B , &A000 , &1 
06 

20 DATA DD,21,23,11,06,1E,C5,DD,4E,00,DD,4 [11508] 

6,01,CD,99 , AO , DD,7E, 00, 4F ,D6, 4F,CD,46,AO,8 

1,4F,FE,A0,30,1A,DD,7E,01,47,D6,64,CD, 46 ,A 

0,80,47,FE,C8,30, OB, DD,71,00,DD,70,01,CD,9 

5,AO,18,03,CD,70,AO , DD,23,DD,23,DD,23,CI, 1 

0,C1,C9,CB,7F,C5,28,15,ED,44,CB,2F,CB 

30 DATA 2F , DD,46,02,CB,2F , 10,FC,B7,20,01,3 [9986] 

C , ED,44, CI ,C9 , CB ,2F, CB,2F , DD,46,02,CB,2F , 1 
0,FC,B7,CI,CO,3C,C9,3E,4D,CD,B9,AO,C6,2A,D 

D, 77,00,3E,74,CD,B9,AO , C6 , 2A,DD,77,01,47 , D 
D, 4E ,00 , CD,95 , AO,3E,02 , CD, B9, AO,3C,DD,77,0 
2,C9,3E,01,18,05,3A,4F,2D,B7,CO , CD,DE 

40 DATA BB,26,00,69,29,29,EB,26,00,68,29,D [12642] 
5,E5 , CD,FO, BB, El,Dl,FE,02 , DO,CD,EA,BB , C9,E 
D,5B,Al,22,CD,DC, AO, E5,IE , 4B,3A,Al ,22 ,CD,D 

C, AO ,11,4B,00,19,11,01,01,AF,ED,52 , 30,FC,1 
9,2B,22,Al,22,Fl,C9 ,67 ,2E,00,55,06,08,29,3 
0,01,19,10,FA,C9,3A,50,2D,B7,C0,3E,2C 

50 DATA CD,IE,BB,C8,3E,2C,CD,IE,BB,20,F9,C [4235] 

D, 1B , BB,38 , FB,CD,1B , BB , 30,FB,C9 
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Tips & Tricks—i 


Suche und finde 

Untersuchen von Binär-Files 

Dieses Programm dient zur näheren Untersuchung von 
Binär-Files, die RSX-Befehle initialisieren. Manchmal 
besteht die Notwendigkeit, die Arbeitsweise eines Befehls 
zu analysieren und gegebenenfalls den eigenen Bedürf¬ 
nissen anzupassen. FIND.BIN ersetzt keinen Disassem¬ 
bler, ermöglicht aber, diesen effizienter einzusetzen. 
FIND.BIN läuft ab Adresse &AF00, also einem Bereich, 
in dem Binär-Files normalerweise nicht anzutreffen sind 
und der zudem reset-geschützt ist. 

Zur Generierung tippen Sie den DATA-Lader ab. und spei¬ 
chern Sie diesen vorsichtshalber unter einem beliebigen Na¬ 
men ab. Starten Sie den Lader. Bei Fehlerfreiheit wird au¬ 
tomatisch FIND.BIN generiert. 

Anwendung: 

I. Laden Sie FIND.BIN mit dem Befehl LOAD 


für 464-664-6128 LJ 

8 


i- . -. ... m 




10 IF PEEK(&AF00)=1 AND PEEK(&AF01)=14 THE [2255] 
N 40 

20 LOAD "find.bin" ,&AF00 [1642] 

30 CALL &AF00 391] 

40 PRINT "Befehl |FIND installiert" [4032] 


1000 DATA 01,0E,AF, 21,OA,AF,00,01,80,09,00 [2891] 
,00,00,00,13,AF,&077D 

1010 DATA 03,26,AF,46,49,4E,C4,00,E1,3E / 1C [2577] 
,1E,1C,18,00,DF,&103C 

1020 DATA 23,AF,09,55,CB,FD,FE,01,CO,DD,6E [2707] 
,00,DD,66,01,46,&0BEA 

1030 DATA 23,5E,23,56,D5,1Ä,FE,61,38,03,CB [3119] 
,AF,12,13,10,F5,&0D8F 

1040 DATA CB,FF,1B,12,El,CD,D4,BC,3E,26,CD [2454] 
,5A,BB,22,CD,AF,&0EDA 

1050 DATA 7C,CD,8E,AF,7D,CD,8E,AF,CD,B3,AF [2977] 
,E5,11,45,C0,ED,&0FB0 

1060 DATA 52,CA,18,AF,El,11,00,CO,ED,52,38 [3875] 
,OA,21,C7,AF,CD,&1OAA 

1070 DATA BE,AF,CD,B3,AF,C9,3E,26,CD,5A,BB [3859] 
, 2A, CD,AF,23,5E,&0FF8 

1080 DATA 23,56,7A,CD,8E,AF,7B,CD,8E,AF,CD [2766] 
,B3,AF,C9,F5,E6,&151A 


| Lisling: Suche und finde 


“FIND.BIN“,&AF00 

2. Setzen Sie den Rechner zurück mit dem “Dreifinger- 
griff“ oder CALL 0 

3. Laden Sie das zu untersuchende Binär-File. 

4. Führen Sie den zur Initalisierung nötigen CALL aus. 

5. geben Sie ein: CALL &AF00 (initialisiert FIND.BIN) 

6. Untersuchen mit Befehl 

7. Anzeigen: 

Zuerst wird die Adresse, an der der Sprung auf den ei¬ 
gentlichen Befehl steht, angezeigt. Sollte einer der Para¬ 
meter nicht stimmen, so erfolgt keine Anzeige. 

Darunter folgt nun: 

— der Vermerk (ROM), wenn es sich um einen ROM-Be- 
fehl handelt (AMSDOS-Diskettenbefehle), 

— die Adresse, an der die Befehlsausführung beginnt, 

— Vermerk “Unknown command“, wenn kein gültiger Be¬ 
fehl eingegeben wurde. 

8. Untersuchung eines weiteren Binär-Files: 

Starten Sie wieder bei Punkt 2. 


(Markus Wepfer/rs) 


1090 DATA FO,OF,OF,OF,OF,FE,OA,30,02,18,02 
,C6,07,06,30,CD,&0C37 

1100 DATA 5A,BB,F1,E6,OF,FE,OA,30,02,18,02 
,C6,07,C6,30,CD,&102B 

1110 DATA 5A,BB,C9,3E,OD,CD,5A,BB,3E,OA,CD 
,5A,BB,C9,7E,B7,&10C8 

1120 DATA C8,CD,5A,BB,23,18,F7,28,52,4F,4D 
,29,00,00,00,&0EEE 
1130 DATA EOF 
1140 : 

1150 MEMORY &A67B 

1160 zeile= 1000:schritt= 10:adr=&AF00:sta 
rt=adr:zz=0 

1170 PRINT"Zeile:";zeile; 

1180 READ b$ 

1190 IF b$="EOF" GOTO 1310 

1200 IF MID$(b$,1,1)="&" GOTO 1260 

1210 b=VAL("&"+b$) 

1220 POKE adr,b 

1230 sum=sum+(PEEK(adr)*(po%+l)+po%+i) MOD 
521 

1240 adr=adr+l:po%=po%+l:IF po%=127 THEN p 
o%=0 

1250 GOTO 1180 

1260 zz=zz+l:sum=sum+INT(zz/127) 

1270 IF sum=VAL(b$) THEN v=6 ELSE V=174:fe 
hler=fehler+1:CALL &BB06 
1280 PRINT CHR$(1)CHR$(V) 

1290 sum=0:zeile=zeile+schritt 
1300 GOTO 1170 

1310 SAVE "FIND.BIN",b,&AF00,&CF 
1320 PRINT fehler;" Fehler" 

1330 END 


[1926] 

[4214] 

[3851] 

[2912] 


[174] 

[441] 

[3375] 

[1475] 

[315] 

[1070] 

[1244] 

[988] 

[92] 

[2810] 

[1428] 

[399] 

[2236] 

[3875] 

[1605] 

[1397] 

[305] 

[2103] 

[1894] 

[ 110 ] 


[ Ltsting: 


Suche 


und finde 


FloppyS für CRC 464/664/6128 


TEAC-Elnbaulautwerke: 

FD 55 QFR 5,25", 360 KB/1.2 MB 

FD 235 HF 3,5", 720 KB/1,44 MB 

Einbaurahmen 5.25“ 

SHUGART SA455 5,25". 380 KB 

DM 185,- 
DM 159,- 
DM 39.- 
DM 99,- 

• STARDRIVE Zweltlaufw. anschluDfertig für CPC: 

• STARDRIVE 5,25" —TEAC- (720/360 KB) 

• STARDRIVE 3.5" -TEAC- (720/360 KB) 

• STARDRIVE 5,25" -SHUGART- (360 KB) 

■ STARDRIVE 3" - HITACHI- (360 KB) 

DM 289.- 
DM 239.- 
DM 199.- 
DM 199.- 


Alle Floppys auch als Eratlaufwerk und als Doppellaulwerk in beliebiger Komblnalion lieferbar!! 
DISKETTEN (Auszug): 


5,25" - 48TPI (MD2D) 
5,25“ - 48TPI (MD2D) 
3.5" - 135 TPI (MF2DD) 
3,5- - 135 TPI (MF2DD) 

no name (10 Stk.) 

SILICON (10 Stk.) 

no name (10 Stk ) 

SILICON (10 Stk ) 

DM 

DM 

DM 

DM 

8,50 

12.50 

18.50 

26.50 

ACHTUNG! Sonderposten CPC-Softwaro/Büoher/3"-Disketlen 



z.B.: Software: dBase II, Wordstar, Multipl 1. Joyce 



Bücher: f CPC, z.B. CPC 1 Einslolgor 

DM 


3"-Dlskctton (10 Sick.) 

nur 

DM 

49,50 


Weltoro Angebole entnehmen Sie bitte u. PtospeklontUslon, die wir Ihnen gerne kostenlos zuschicken 
Preis zzgl. Po rlo/Vorpackunq Anzeig e in PC pu r beachlo nl _ 

G-t-L electronic 

Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 • Tel: 06359/2582 


Pio-Vetign & Pzo-ßoootez 


c 

p 

c 


Mil DESK-ROYAL erslellon Sie Im Handumdrehen prolossionolle CPC-Soltware. PC-Luxus wie Desktop- 
Steuerung und Dialogboxen letzt auch in Ihren Programmen, aul Ihrem CPC! Kinderleichte Anwendung. 
Sollware vom Feinsten lür alle kreativen BASIC-Freundc. 

- Ausführliches deutsches Handbuch mit vielen Beispielen 

- Eigenes Desklop-Edltor-Programm 

• Mohr als 30 neue BASIC-Befohle, keino Maschinensprache-Kenntnisse erforderlich 
- Bis zu 20 Normal-Menüs an |eder beliebigen Stelle aul dem Bildschirm 

- Bis zu 10 Paramcwr-Monüs mit Schallerlunklion 

- Bis zu 10 Werte-Menüs mit Eingabekontrollo 

- Unterstützung von farbigen Menüs, alte Bildschirm-Modi möglich 

- Superkomforlable Diskellenbelehle mit Fehlerentschärlung(z.B. selektive Katalogboxen) 

- Formaliorbaro Eingabe 

- Dialogboxen mit verschiedenen Icons 

- DESK-ROYAL, 3"-Diskotle + Handbuch für nur 54,95 DM 

- Wolte'e lop Anwendersollwa/e (DTP) lür CPC, fordern Sie kostenlosen Katalog an 

Voraard VorRuskasse (frei) otföf Nachnahme (« Q,- DM) * HAndlp'anfragon orgonohm 


JjA Axel I 

W c 


KOSTENLOSES TNEO 


Axel Weber, 0202/592303, Postfach 260154, D-5600 Wuppertal 26 

Crusader Software 
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I—Tips & Tricks 


Directory Manager 

Hilfe für Disketten 

DIR.BIN ist eine RSX-Erweiterung für alle CPCs, die 
den Umgang mit dem Directory wesentlich erleichtert. 
Alle Befehle, die eine Parametereingabe erfordern, sind 
mit einer Help-Funktion ausgestattet, die die Anzahl der 
benötigten Parameter und deren Reihenfolge und Na¬ 
men angibt. Die Help-Funktion wird durch Eingabe des 
Befehlsnamen (ohne Parameter) aufgerufen. 

Im Programm ist ein Datei-Entschützer eingebaut, der un¬ 
mittelbar nach der Initialisierung der Erweiterung aktiv 
wird. Alle mit “,P“ gespeicherten BASIC-Dateien können 
somit ohne Probleme ganz normal mit dem LOAD-Befehl 
geladen werden. 

• Eingabe von Dateinamen 

• Bei Bezeichnung “filename“: 

Es kann das übliche Format verwendet werden (Punkt als 
Trennung zwischen Dateiname und Erweiterung, Groß- und 
Kleinschreibung spielt keine Rolle). 

Besonderheit: 

Wenn der Dateiname acht Zeichen lang ist, braucht der 
Punkt nicht eingegeben zu werden (zum Beispiel F1LE- 
NAMEBAS oder FILENAME.BAS). Bei File-Namen ohne 
Extension bitte den Punkt nicht eingeben! 

Benutzer eines CPC 464 müssen den Dateinamen in einer 
Variablen speichern und rufen diese dann mit dem Klammer¬ 
affen auf (zum Beispiel name$ = “FUNFILE.BAS“:IUN- 
HIDE.O,@file$) 

• Bei Bezeichnung “amsfile“: 

Eingabe des File-Namens im AMSDOS-Format (reiner Da¬ 
teiname oder User-Nummer, Laufwerk, Doppelpunkt, Da¬ 
teiname (zum Beispiel testfile.ext oder 15 Testfile.ext oder 
a:testfile.ext oder 15a: testfile.ext). 

• Laufwerk 

Eingabe von “0" für Laufwerk A und von “1 “ für Laufwerk 
B bei allen entsprechend bezeichneten Befehlen. 

• Anzeige der Dateien: 

Nach jeweils 20 angezeigten Dateinamen erfolgt ein Warten 
auf einen beliebigen Tastendruck (entsprechender 
Meldungstext erscheint). Mit der ESC-Taste kann die weite¬ 
re Anzeige jedoch verhindert werden. Bei eingeschalteter 
Totalisierung werden nur die bisher aufgelaufenen Totale an¬ 
gezeigt (siehe unter TOTAL-Befehl). 

Die Befehle 

iDIR.READ.laufwerk 

Das Directory des entsprechenden Laufwerks wird in den 
Buffer eingelesen. 

DATA- oder CP/M-formatierte Disketten werden automa¬ 
tisch erkannt. 

ISHOW.FORMAT 
- ohne Parameter: 

Zeigt die Formatierung (DATA oder CP/M oder XXXX 
wenn zuvor kein Directory eingelesen wurde) 


— mit Parameter: 

Zeigt die Formatierung auf dem bezeichneten Laufwerk 
(0 = A, 1=B). Empfehlung: 

Vor Verwendung des IDISKCOPY-Befehls mittels 
ISHOW.FORMAT.O und ISHOW.FORMAT, 1 überprüfen, 
ob beide Disketten gleich formatiert sind. Nötigenfalls Ziel- 
diskette neu formatieren. 

ISHOW.ALL 

Zeigt alle Directory-Einträge in der Reihenfolge, in der sic 
sich auf der Diskette befinden. 

Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW.ERASED 
Zeigt nur gelöschte Files. 

Totalisierung: siche unter ITOTAL-Befehl. 

ISHOW.USER,user 

Zeigt alle Files des angegebenen User-Bereichs an. 
Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW. EXCEPT.user 

Zeigt alle Files, die n i c h t dem genannten User entspre¬ 
chen. Beispiel: ISHOW.EXCEPT.229 zeigt alle nicht ge¬ 
löschten Files. 

Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW.RO 

Zeigt alle Files mit Read-Only-Status (das bedeutet Files, die 
gegen Umbenennen und Löschen geschützt sind). 
Totalisierung: siche unter ITOTAL-Befehl. 

ISHOW.RW 

Zeigt alle Files, die keinen Read-Only-Status haben. 
Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW.HIDDEN 
Zeigt alle versteckten Files. 

Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW.UNHIDDEN 

Zeigt alle Files, die nicht versteckt sind. 

Totalisierung: siehe unter ITOTAL-Befehl. 

ISHOW.FREE 

Zeigt Anzahl der freien Directory-Einträge und der freien 
Kapazität in kByte. 

ISHOW.USED 

Zeigt Anzahl der benutzten Directory-Einträge und der be¬ 
nutzten Kapazität. Unter “benutzt“ werden Dateien, die als 
gelöscht gekennzeichnet sind, nicht gezählt. 

ITOTAL.ON 

Schaltet die Totalisierung ein (Summenbildung über Anzahl 
und kBytes der nicht gelöschten Dateien). Dieser Befehl 
wird am Anfang automatisch initialisiert. 

ITOTAL.OFF 

Schaltet die Totalisierung aus 
IUNHIDE 

Ohne Parameter: Löscht den Hide-Status bei allen Dateien. 
IUNHIDE,user, filename 

Löscht den Hide-Status nur bei der angegebenen Datei. 

IHIDE, u ser ,fil ename 
Versteckt die angegebene Datei. 
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IRW 

Ohne Parameter: Löscht den Read-Only-Status bei allen Da¬ 
teien. 

IRW, user, filename: 

Löscht den Read-Only-Status nur bei angegebener Datei. 
IRO,user,filename 

Setzt Read-Only-Status bei angegebener Datei. 

IUNDO 

Macht die Befehle IUNHIDE und IRW rückgängig (entspre¬ 
chende Dateien haben wieder ihren ursprünglichen HIDE be¬ 
ziehungsweise Read-Only-Status). 

ICH ANGE. USER, user-neu, user-alt, filename 
Wechselt den User-Bereich einer Datei bei gleichblcibcndem 
File-Namen. So können zum Beispiel gelöschte Dateien wie¬ 
der benutzbar gemacht werden (Beispiel: ICHANGE. 
USER,0,229,filename) 

ICHANGE. NAME, filenamc-neu, user, filename-alt 
Ändert den Dateinamen bei gleichbleibendem User-Bereich. 

IKILL, user, filename 

Entfernt einen Directory-Eintrag definitiv. Aus Sicherheits¬ 
gründen nur auf User-Bereich 229 (gelöschte Dateien) an¬ 
wendbar. 

Sicherheitsabfrage: Entfernung kann mit ESC-Taste verhin¬ 
dert werden. 

IDIR.WRITE 

Schreibt das Directory wieder auf das Laufwerk zurück, von 
welchem ursprünglich eingelesen wurde (Laufwerksbezeich¬ 
nung wird sicherheitshalber noch einmal angezeigt). 
Sicherheitsabfrage: Mit der ESC-Taste kann das Zurück¬ 
schreiben verhindert werden, mit jeder anderen Taste wird 
die Sicherung durchgeführt. 

Diesen Befehl auf alle Fälle vor den Befehlen IDISKCO- 
PY, IFILECOPY, ITYPE oder ICAT durchführen, da diese 
Befehle einen Teil des Directory-Buffers überschreiben! 

IFORM AT. DATA,laufwerk 

Formatiert die Diskette im angegebenen Laufwerk im 
DATA-Format. 

Sieherheitsabfrage: Formatierung kann mit der ESC-Taste 
verhindert werden. 


IFORM AT.CPMdaufwerk 

Formatiert die Diskette im angegebenen Laufwerk im 
CP/M-Format. 

Sicherheitsabfrage: Formatierung kann mit der ESC-Taste 
verhindert werden. 

IDISKCOPY.richtung 

Richtung 0 = Es wird von Laufwerk A nach B kopiert. 
Richtung 1 = Es wird von Laufwerk B nach A kopiert. 
Sicherheitsabfrage: Kopieren kann mit der ESC-Taste ver¬ 
hindert werden. 

IFILECOPY, zielfile$.ursprfile$ 

Die File-Namen werden hier im AMSDOS-Format eingege¬ 
ben, zum Beispiel “2a:filename.ext“ 

Kopiert alle Dateiarten von einem Laufwerk auf ein anderes 
oder von einem User zum andern, ganz nach Belieben. Hier 
ist folgendes zu beachten: 

ASCII-Files (Textdateien) können beliebig groß sein. 
BASIC- und Binär-Files bis maximal lökByte Größe: 
Bildschirmspeicher wird als Puffer benutzt (wie bei ASCII- 
Files). Eine Veränderung des Bildschirminhaltes darf des¬ 
halb nicht verwundern und ist völlig normal. Ab 16 kByte bis 
maximal 32 kByte: Puffer befindet sich ab Adresse &1000. 
Vorsicht: Ein vorher geladenes BASIC-Programm und auch 
Variableninhalte gehen dadurch zum größten Teil verloren. 
Deshalb BASIC-Programme vor Anwendung dieses Be¬ 
fehls sichern und nachher wieder nachladen. 

Ab 32 kByte erfolgt Meldung “File zu groß“, und es wird ab¬ 
gebrochen. 

Detaillierter Ablauf des Kopierens eines BASIC- oder Binär¬ 
files: 

1. Feststellen der File-Größe 

2. Festlegen des Pufferanfangs (siehe oben) 

3. Einlesen des Files 

4. Schreiben nach Zielfile 

5. Öffnen des Zielfiles 

6. Feststellen der ersten Datenblocknummer 

7. Umrechnen der Datenblocknummer in Spur- und 
Sektornummer 

8. Einlesen dieses Sektors 

9. Patch der Startadresse 

10. Neuberechnung der Checksumme 

11. Patch der Checksumme 

12. Zurückschreiben des Sektors 


Anwendungsprogramme 
für CRC oder JOYCE 


ADRESCOMP 

DATENREM 

ETATGRAF 

FIBUCOMP 

FIBUPLAN 

KALKUREM 

LAG DAT 

PROFIREM 

TEXTCOMP 

TEXTKING 

VOKABI 


Adressendateiprogramm 
universelles Dateiprogramm 
Haushaltsbuch mit Grafik 
Buchführung 

Buchführung mit MwSt-Berechnung 
Tabellenkalkulation (Version 2.0) 
praktisches Lagerdateiprogramm 
Rechnungen. Lager-, Adressendatei 
kleines Textprogramm für PCW 
Textprogramm (nur CPC) 
universeller Vokabeltrainer 


58,- DM 
68.- DM 
58.- DM 
98,- DM 
148,- DM 
78.- DM 
68,- DM 
138,- DM 
58,- DM 
78,- DM 
58,- DM 


Programme jeweils auf 3‘‘-Diskette. Versand per Vorkasse (portofrei). 
Nachnahme (plus 5 DM). Aktuelles Info anfordern (bitte Computertyp angeben)! 

SIE 


Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61 / 55 24 
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□ 


Testen Sie deshalb IFILECOPY vorerst mit einer Zieldisket¬ 
te. auf der keine unersetzlichen Datenbestände vorhanden 
sind! 


*) wichtige Angaben, wenn das File mit einem Diskettenmo¬ 
nitor untersucht werden soll. 


IDETAILS.amsfile 
Zeigt alle Details eines Files: 

File-Art: ASCII, BASIC-normal, BASIC-geschützt oder 
Binär 

Startadresse: Bei ASClI-Files: &0000, sonst entsprechende 
Adresse 

Länge: Bei ASCIl-Files: &0000, sonst entsprechende Länge 
Autostarl-Adresse: Bei ASCII-Files: &0000, sonst entspre¬ 
chende Adresse 

End-Adresse: Bei ASCIT-Files: &FFFF, sonst entsprechen¬ 
de Endadresse 

Berechnung: Nach der Formel: (Startadresse+Länge)-1 
Block: erste Datenblockadresse des Files *) 

Track/Sektor: Erster Track und erster Sektor des Files *) 
Status: R/O (Read-Only), HIDDEN (versteckt) oder 
ERASED (gelöscht) 

ITYPE,amsfile 

Zeigt ein ASCII-File auf dem Bildschirm an (entspricht dem 
CP/M-Befehl TYPE). Nach jeweils 20 Zeilen erfolgt eine 
Unterbrechung. Mit ESC kann abgebrochen, mit jeder ande¬ 
ren Taste weitergefahren werden. 


für 464-664-6128 



10 MEMORY &87FF [738] 

20 LOAD "dir.bin",&9000 [1215] 

30 CALL &9000 [445] 


1000 DATA 01,25,90,21,21,90,CD,Dl,BC,3E,00 
,32,70,Al,21,1A,&0E03 

1010 DATA 90,11,7F,BE,01,07,00,ED,B0,C9,F5 
,AF,32,2C,AE,F1,&10D3 

1020 DATA C9,00,00,00,00,87,90,C3,92,91,C3 
,DA,91,C3,EE,91,&0DE4 

1030 DATA C3,1F,92,C3,24,92,C3,02,92,C3,37 
,92,C3,3C,92,C3,&0FAD 

1040 DATA 50,92,C3,EA,92,C3,D9,92,C3,70,93 
,C3,74,93,C3,7A,&0E08 

1050 DATA 93,C3,AD,93,C3,04,94,C3,43,94,C3 
,92,94,C3,A8,94,&145D 

1060 DATA C3,06,95,C3,40,95,C3,EA,95,C3,76 
,96,C3,96,97,C3,&0FE5 

1070 DATA 02,98,C3,37,98,C3,77,98,C3,DE,98 
,C3,19,99,C3,89,&0CCE 

1080 DATA 99,C3,9E,9A,C3,C6,9A,44,49,52,2E 
,52,45,41,C4,53,&0DE6 

1090 DATA 48,4F,57,2E,41,4C,CC,53,48,4F,57 
,2E,45,52,41,53,&0FFA 

1100 DATA 45,C4,53,48,4F,57,2E,52,CF,53,48 
,4F,57,2E,48,49,&13FE 

1110 DATA 44,44,45,CE,53,48,4F,57,2E,55,53 
,45,D2,53,48,4F,&128D 

1120 DATA 57,2E,52,D7,53,48,4F,57,2E,55,4E 
,48,49,44,44,45,S(0F8C 


[3352] 

[2048] 

[3486] 

[2899] 

[2458] 

[1884] 

[3175] 

[2518] 

[1613] 

[3232] 

[2594] 

[2683] 

[3227] 


Ustlng Directory-Manager 


1 LAUFWERK 

Ohne Parameterangabe: Aktuelles Laufwerk wird angezeigt. 
LAUFWERK.0: Laufwerk für Datensicherung auf “A“ um¬ 
stellen. 

LAUFWERK, 1: Laufwerk für Datensicherung auf "B“ um¬ 
stellen. 

2 Parameter: Laufwerk und User einstellen, zum Beispiel 
ILAUFWERK ,0,229 

Sicherheitshalber anwenden vor dem IDIR.WRITE-Be- 
fehl. 

ICAT,Laufwerk,User 

Komfortablerer CAT-Befehl als unter BASIC. Verlangt die 
Eingabe des Laufwerks und des Users. Damit entfällt die um¬ 
ständliche Anwendung des Laufwerkbefehls IA oder IB und 
des lUSER-Belehls. Umgeht auch die Sperre der höchstzu¬ 
lässigen User-Nummer 15. Somit können sehr einfach ge¬ 
löschte Dateien angezeigt werden (I CAT.0,229 auf Lauf¬ 
werk A oder ICAT, 1,229 auf Laufwerk B) 

IHELP 

Zeigt eine Übersicht über sämtliche Befehle. 

(Markus Wepfer/rs) 


1130 DATA CE,53,48,4F,57,2E,45,58,43,45,50 [1767] 
,D4,53,48,4F,57,&0E65 

1140 DATA 2E,46,52,45,C5,53,48,4F,57,2E,55 [3845] 
,53,45,C4,54,4F,&14D2 

1150 DATA 54,41,4C,2E,4F,CE,54,4F,54,41,4C [2940] 
,2E,4F,46,C6,55,&0DFF 

1160 DATA 4E,48,49,44,C5,52,D7,55,4E,44,CF [3601] 
,44,49,52,2E,57,&1114 

1170 DATA 52,49,54,C5,48,49,44,C5,52,CF,46 [1597] 
,4F,52,4D,41,54,&103A 

1180 DATA 2E,44,41,54,C1,46,4F,52,4D,41,54 [2920] 

,2E,43,50,CD,44,&0DFA 

1190 DATA 49,53,4B,43,4F,50,D9,46,49,4C,45 [3505] 
,43,4F,50,D9,43,&10DC 

1200 DATA 48,41,4E,47,45,2E,55,53,45,D2,4B [2504] 
,49,4C,CC,53,48,&0E4B 

1210 DATA 4F,57,2E,46,4F,52,4D,41,D4,43,48 [2446] 
,41,4E,47,45,2E,&0C74 

1220 DATA 4E,41,4D,C5,4C,41,55,46,57,45,52 [2124] 
,CB,54,59,50,C5,&0A65 

1230 DATA 44,45,54,41,49,4C,D3,43,41,D4,48 [2922] 
,45,4C,D0,00,3E,&1220 

1240 DATA 05,1E,05,18,06,3E,16,1E,16,18,00 [3096] 
,DF,8F,91,C9,55,&OC27 

1250 DATA CB,FD,FE,01,FA,85,91,C2,60,9E,DD [3360] 
,7E,00,FE,02,D2,&0CD0 

1260 DATA 54,9E,32,71,A1,CD,11,9B,06,04,3A [2678] 
,83,Al,2A,79,Al,&1275 

1270 DATA CD,54,9D,DF,9C,Al,D2,5A,9E,2A,79 [2084] 
,Al,11,00,02,19,&0E86 

1280 DATA 22,79,Al,3A,74,Al,3C,32,74,Al,10 [3504] 
,El,3A,74,Al,D6,&0CAC 

1290 DATA 04,32,74,Al,3E,01,32,70,Al,C9,3E [3307] 
,00,32,96,92,11,&0DDF 

1300 DATA 00,00,ED,53,8E,Al,3E,DA,32,97,92 [2026] 
,C3,6A,92,3E,E5,&12AF 

1310 DATA 32,96,92,11,00,00,ED,53,8E,Al,3E [2608] 
r? ?? Q 7 qo n.ÄOFOF 

1320 DATA f 6A ^ 92,FE,01,FA,85,91,C2,60,9E,DD [3736] 
,7E,00,32,96,92,&0D68 

1330 DATA 11,00,00,ED,53,8E,A1,3E,C2,32,97 [2097] 
,92,C3,6A,92,11,&0E75 

1340 DATA 09,00,18,03,11,0A,00,ED,53,8E,Al [1846] 
,3E,DA,32,97,92,&11E3 

1350 DATA 3E,80,32,96,92,18,33,11,09,00,18 [2820] 
,03,11,0A,00,ED,&09E2 
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Tips & Tricks—i 


1360 DATA 53,8E,A1,3E,D2,32,97,92,3E,80,32 [2723] 
,96,92,C3,6A,92,&0EBF 

1370 DATA FE,01,FA,85,91,C2,60,9E,DD,7E,00 [1929] 
,32,96,92,11,00,&118C 

1380 DATA 00,ED,53,8E,Al,3E,CA,32,97,92,3A [2392] 
,70,Al,B7,CA,96,&10AD 

1390 DATA 9E,3E,00,32,87,A1,32,8D,A1,32,89 [3386] 
,Al,32,8C,Al,2Ä,&1088 

1400 DATA 77,Al,22,79,Al,CD,7C,9B,2A,79,Al [3037] 
,7E,32,84,Ä1,ED,&0F8F 

1410 DATA 5B,8E,A1,19,7E,FE,00,DA,AE,92,CD [3899] 
,E5,9B,2A,79,A1,&0DBE 

1420 DATA 11,10,00,19,22,79,Al,CD,3E,9D,28 [2530] 
,OE,18,DA,2A,79,&0D77 

1430 DATA Al,11,20,00,19,22,79,Al,18,ED,3A [2210] 
,8A,A1,B7,C8,3A,&13F1 

1440 DATA 89,Al,32,84,Al,CD,88,9B,3A,8C,Al [2801] 
,32,86,A1,3E,00,&0F0F 

1450 DATA 32,8C,Al,CD,AE,9B,C3,41,93,3E,C9 [2754] 
, 3 2,2 8,9 3,CD,EF,& 0 EA3 

1460 DATA 92,CD,88,9B,CD,AE,9B,C3,41,93,3E [2541] 
,00,32,28,93,3E,&1054 

1470 DATA 00,32,86,Al,32,8C,Al,32,87,Al,32 [2811] 
,89,Al,32,8D,Al,&10A4 

1480 DATA 2A,77,Al,22,79,Al,3A,70,Al,B7,CA [2357] 
,96,9E,7E,FE,E5,&1363 

1490 DATA C2,53,93,2A,79,Al,11,20,00,19,22 [2489] 
,79,Al,CD,3E,9D,&0F7B 

1500 DATA 20,EB,3A,89,Al,32,84,Al,00,47,3E [3538] 
,40,90,32,84,Al,&OCDB 

1510 DATA CD,88,9B,3A,86,Al,47,3A,85,Al,90 [3435] 
,32,86,Al,CD,AE,&0D24 

1520 DATA 9B,21,AA,AO,11,AC,Al,01,OC,00,ED [2644] 
,BO,CD,78,9D,CD,&1235 

1530 DATA 7B,9C,C9,3A,89,Al,3C,32,89,Al,11 [3589] 
,10,00,19,06,10,&0E8E 

1540 DATA 7E,B7,28,AF,3A,86,Al,3C,32,86,Al [2282] 
,23,10,F2,18,A3,&10E2 

1550 DATA 3E,01,18,02,3E,00,32,8A,Al,C9,FE [2786] 
,02,28,OE,11,OA,&0E44 

1560 DATA 00,ED,53,8E,Al,3E,E7,32,EO,93,18 [2594] 
,32,3E,C9,32,EB,&OEFA 

1570 DATA 94,3E,0A,32,A0,93,CD,BC,94,3A,95 [3603] 

,Al,B7,C8,FD,CB,&1124 

1580 DATA OA,BE,CD,F4,94,3A,87,Al,FE,40,DO [3370] 
,18,EC,FE,02,CA,&0D21 

1590 DATA F4,93,11,09,00,ED,53,8E,Al,3E,DF [2674] 
,32,EO,93,3E,00,&0EA4 

1600 DATA 32,87,Al,2A,77,Al,22,79,Al,FD,2A [4300] 
,79,Al,ED,5B,8E,&0E64 

1610 DATA Al,19,7E,FE,80,30,02,18,OB,CB,BF [2537] 

,77,FD,7E,OD,CB,& 1341 

1620 DATA E7,FD,77,0D,2A,79,Al,11,20,00,19 [2626] 
,22,79,Al,CD,3E,&0F6E 

1630 DATA 9D,C8,18,D5,3E,C9,32,EB,94,3E,09 [2624] 

,32,AO,93,CD,BC,&11A3 

1640 DATA 94,C3,99,93,3E,00,32,87,A1,2A,77 [2305] 

,Al,22,79,Al,FD,&0C41 

1650 DATA 2A,79,Al,FD,CB,OD,5E,C4,31,94,FD [2531] 

,CB,OD,66,C4,3A,&0E22 

1660 DATA 94,2A,79,Al,11,20,00,19,22,79,Al [2669] 

,CD,3E,9D,C8,18,&104B 

1670 DATA DE,FD,CB,09,FE,FD,CB,OD,9E,C9,FD [4036] 

,CB,OA,FE,FD,CB,&0F8B 

1680 DATA OD,A6,C9,3A,70,Al,B7,CA,96,9E,3A [2463] 

,73,Al,32,72,Al,&0Fl4 

1690 DATA 3A,71,Al,C6,41,32,CI,9D,21,A8,9D [2381] 

,CD,69,AO,CD,48,&0DB0 

1700 DATA 9D,C8,06,04,2A,77,Al,22,79,Al,CD [2596] 

,54,9D,2A,79,Al,&12E5 

1710 DATA DF,9F,Al,D2,5A,9E,2A,79,Al,11,00 [3102] 

,02,19,22,79,Al,&0C89 

1720 DATA 3A,74,Al,3C,32,74,Al,10,El,3A,74 [3898] 

,Al,D6,04,3 2,7 4,&ÖEFF 

1730 DATA A1,C9,FE,02,C2,6C,9E,3E,0A,32,EE [2631] 
,94,3E,E6,32,F3,&1090 

1740 DATA 94,3E,00,32,EB,94,18,14,FE,02,C2 [3875] 
,6C,9E,3E,09,32,&0CF1 

1750 DATA EE,94,3E,DE,32,F3,94,3E,00,32,EB [2443] 

,94,CD,9A,9C,3E,&108A 

1760 DATA 00,32,95,Al,2A,77,Al,22,79,Al,FD [3040] 

,2A,79,Al,11,D2,&0D3F 

1770 DATA A1,06,0C,7E,4F,1A,B9,20,1B,05,23 [3023] 

,13,7E,CB,BF,4F,&0FD7 

1780 DATA 1A,B9,20,10,10,F4,3E,01,32,95,Al [3327] 

, 00 , FD, CB, OA, FE, StOCDO 

1790 DATA FD,CB,OD,E6,CD,3E,9D,30,OC,11,20 [3550] 

,00,2A,79,Al,19,&0CED 

Llsting Directory-Manager 


1800 DATA 22,79,A1,18,C5,C9,FE,01,C2,54,9E [3645] 
,DD,7E,00,32,93,&0C9E 

1810 DATA Al,FD,21,4C,Al,FD,36,02,CI,3E,CI [2637] 
,32,92,Al,FD,36,&105C 

1820 DATA 06,C6,FD,36,OA,C2,FD,36,OE,C7,FD [2936] 
,36,12,C3,FD,36,&14E0 

1830 DATA 16,C8,FD,36,1A,C4,FD,36,1E,C9,FD [2914] 
,36,22,C5,18,38,&10D4 

1840 DATA FE,01,C2,54,9E,DD,7E,00,32,93,Al [2610] 
,FD,21,4C,A1,FD,&10BC 

1850 DATA 36,02,41,3E,41,32,92,Al,FD,36,06 [2741] 
,46,FD,36,OA,42,&OFAO 

1860 DATA FD,36,OE,47,FD,36,12,43,FD,36,16 [2251] 
, 48,FD,36,1A,44,&0A1B 

1870 DATA FD,36,IE,49,FD,36,22,45,3E,00,32 [3602] 
,72,Al,3A,93,Al,&0EF1 

1880 DATA FE,02,38,03,C3,54,9E,C6,41,32,DF [2183] 
,9D,21,C6,9D,CD,&0FF3 

1890 DATA 69,AO,CD,06,BB,FE,FC,C8,3A,93,Al [2309] 
,5F,3A,92,Al,DF,&100B 

1900 DATA A2,Al,3A,72,Al,FD,21,4C,Al,FD,77 [3068] 
,00,FD,77,04,FD,&10CE 

1910 DATA 77,08,FD,77,OC,FD,77,10,FD,77,14 [2561] 
,FD,77,18,FD,77,&0EA8 

1920 DATA IC,FD,77,20,3A,93,Al,5F,3A,72,Al [2913] 
,57,3A,74,Al,4F,&12C3 

1930 DATA 21,4C,A1,DF,A5,A1,D2,5A,9E,3E,2E [2533] 
,CD,5A,BB,3A,72,&0E03 

1940 DATA Al,3C,32,72,Al,FE,28,C8,18,B8,FE [2528] 
,01,C2,72,9E,DD,&13AE 

1950 DATA 7E,00,32,93,Al,EE,01,32,94,Al,FE [3859] 
,02,38,03,C3,72,&OC77 

1960 DATA 9E,3A,93,A1,C6,41,32,17,9E,3A,94 [3497] 
,Al,C6,41,32,1F,&1350 

1970 DATA 9E,21,06,9E,CD,69,AO,CD,48,9D,C8 [2641] 
,3A,9 3,Al,CD,11,&0F4D 

1980 DATA 9B,3E,00,32,72,Al,CD,54,9D,2A,79 [3113] 
,Al,DF,9C,Al,D2,&0ED5 

1990 DATA 5A,9E,3A,94,Al,5F,3A,72,Al,57,3A [3558] 
,74,Al,4F,2A,79,&0D44 

2000 DATA Al,DF,9F,Al,D2,5A,9E,3A,74,Al,3C [2812] 
,32,74,Al,CB,B7,&12F1 

2010 DATA CB,BF,FE,OA,38,DO,3A,74,Al,D6,09 [4293] 
,32,74,A1,3E,2E,&1061 J 

2020 DATA CD,5A,BB,3A,72,Al,3C,32,72,Al,FE [2488] 
,28,28,02,18,B6,&1092 

2030 DATA 3E,00,32,70,Al,C9,FE,02,C2,A8,9E [3496] 
,3E,00,32,70,Al,&094A 

2040 DATA DD,6E,00,DD,66,01,46,23,5E,23,56 [1944] 

,62,6B,11,00,CO,&0DAE 

2050 DATA DD,E5,CD,77,BC,D2,5A,9E,DD,El,C5 [2483] 

,F5,ED,53,7B,Al,&1069 

2060 DATA ED,43,81,Al,DD,6E,02,DD,66,03,46 [3426] 

,78,32,90,Al,23,&0EF6 

2070 DATA 5E,23,56,62,6B,22,7D,Al,11,00,C8 [1863] 

,CD,8C,BC,D2,5A,&0F23 

2080 DATA 9E,3E,01,CD,OE,BC,Fl,FE,10,38,OF [2772] 

,CI,CD,80,BC,D2,&0E75 

2090 DATA 8C,97,CD,95,BC,D2,8C,97,18,F2,F5 [1860] 

, 11,00,80,2A,81,&0FA7 

2100 DATA Al,ED,52,D2,AE,9E,11,00,40,2A,81 [3481] 

,Al,ED,52,30,05,&11A7 

2110 DATA 21,00,CO,18,03,21,00,10,22,7F,Al [2663] 

,CD,83,BC,2A,7F,&0CBF 

2120 DATA Al,ED,4B,6F,A7,F1,D1,CD,98,BC,3A [2923] 

,2C,A7,32,94,Al, &1151 

2130 DATA CD,7A,BC,CD,8F,BC,2A,7D,Al,3A,90 [3407] 

,Al,47,ED,5B,77,&0E12 

2140 DATA Al,CD,77,BC,CD,7A,BC,3A,19,A7,6F [3195] 
,26,00,OE,09,06,&0C4C 

2150 DATA 08,29,CD,6C,9D,E5,3A,94,A1,CD,11 [2695] 

,9B,El,3A,72,Al,&0D50 

2160 DATA 85,6F,3A,83,A1,3C,84,55,4F,3A,94 [2120] 

,Al,5F,2A,77,Al,&11DB 

2170 DATA F5,C5,D5,DF,9C,Al,FD,2A,77,Al, 2A [3258] 

,7B,A1,54,5D,FD,&105E 

2180 DATA 73,15,FD,72,16,FD,2A,77,Al,21,00 [2268] 
,00,06,42,16,00,&0DE1 

2190 DATA FD,7E,00,5F,19,FD,23,10,F7,FD,75 [2690] 

,01,FD,74,02,Dl,&0D04 

2200 DATA CI,Fl,2A,77,Al,DF,9F,Al,CD,7C,9B [3220] 

,C9,CD,7A,BC,CD,&11A5 

2210 DATA 8F,BC,CD,7C,9B,C9,FE,03,C2,78,9E [2990] 

,DD,7E,04,32,94,&1329 

2220 DATA Al,CD,9A,9C,3A,D2,Al,32,93,Al,3E [3280] 

,C9,32,EB,94,CD,&15DA 

2230 DATA BF,94,3A,95,Al,B7,CA,7E,9E,2A,79 [2356] 

,Al,2 2,7B,Al,3A,& 0CD8 
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r~Tips & Tricks 


2240 DATA 87 , Al, 32,88 , Al, 3A, 94 , Al, 32 , D2 , Al [2871] 


2680 DATA OF,OF,OF,OF,FE,OA,38,02,C6,07,C6 [4114] 

,CD, BF, 94,3A, 95 , Sil 12A 


»30,CD,5A,BB,Fl,&0F14 

2250 DATA Al,B7,C2,84,9E , 3E,00,32,95,Al,3A [2793] 


2690 DATA E6,OF,FE,OA,38,02,C6,07,C6,30,CD [3370] 

,88,Al,32,87,Al,&0ED1 


, 5A, BB , C9 , FE , 02 , Sri 22D 

2260 DATA 2A,7B,Al,22,79,Al,2A,79,Al,3A,94 [2767] 


2700 DATA C2,A2,9E,DD,7E,02,FE,02,D2,54,9E [2243] 

, Al, 77,3A,93, Al, &118.6 


, F5 , CD, 5B, 9B, Fl, SrOAOF 

2270 DATA 32,D2,A1,3E,00,32,95,A1,CD,F4,94 [2562] 


2710 DATA 32,00,A7,DD,7E,00,32,01,A7,3E,00 [2383] 

,3A,95,Al,B7,C 8 , &0DC1 


,32,7 0,Al,ED,5B,S0C32 

2280 DATA 18,E4,FE,02,C2,6C,9E,DD,7E,02,FE [2373] 


2720 DATA 77,Al,CD,9B,BC,C9,3E,00,32,8D,Al [3352] 

,E5,C2,7F,91,CD,SrOEBA 


,3E,01,32,91,A1,&0FB0 

2290 DATA 9A,9C,3E,C9,32,EB,94,CD,48,9D,C8 [2900] 


2730 DATA CD,7C,9B,3E,7C,CD,5A,BB,21,87,90 [4130] 

,CD,BF,94,3A,95,&111D 


,7E,B7,C8,CB,7F,&0F38 

2300 DATA Al,B7,C8,2A,79,Al,06,0C,36,E5,23 [2229] 


2740 DATA 28,1A,CB,BF,CD,5A,BB,CD,61,9D,3A [2599] 

,10,FB,3E,00,32,&0EBF 


,8D,Al,3C,32,8D,S10F0 

2310 DATA 95,Al,CD,F4,94,18,E7,FE,01,FA,41 [2677] 


2750 DATA Al,FE,14,28,OD,3E,7C,CD,5A,BB,18 [3080] 

,98,C2,60,9E,18,&11B2 


,03,CD,5A,BB,23,S107A 

2320 DATA 29,3A,85,Al,FE,B2,28,06,FE,A9,28 [1981] 


2760 DATA 18,D9,E5,CD,27,9D,El,CA,7C,9B,E5 [2345] 

,07,18,OA,21,30,&0D83 


, CD, 7C, 9B, El, 18,SrOCFB 

2330 DATA 9E,18,08,21,34,9E,18,03,21,38,9E [2924] 


2770 DATA E4,5F,OE,00,16,00,F5,DF,96,Al,D2 [2595] 

,11,24,9E,01,04,&12FF 


,5A,9E,Fl,5F,DF, &0F7C 

2340 DATA 00,ED,BO,21,24,9E,CD,69,AO,C9,DD [1781] 


2780 DATA 99,Al,D2,5A,9E,3A,51,BE,FE,CO,30 [1825] 

,7E,00,FE,02,D2,&0A60 


,07,FE,40,30,15,StOF14 

2350 DATA 54,9E,CD,11,9B,18,CA,FE,03,C2,8A [3602] 


2790 DATA C3,66,9E,3E,CO,32,83,Al,3C,32,74 [4042] 

,9E,CD,9A,9C,3E,&0E06 


, Al ,3E,B2,32,85, St0EC7 

2360 DATA C9,32,EB,94,CD,BF,94,3A,95,Al,B7 [3585] 


2800 DATA Al,3E,00,18,10,3E,40,32,83,Al,3C [2713] 

,CA,7E,9E,2A,79,&124A 


,32,74,Al,3E,A9,&OBCO 

2370 DATA Al,22,7B,Al,3A,87,Al,32,88,Al,CD [3290] 


2810 DATA 32,85,Al,3E,02,32,72,Al,32,73,Al [3589] 

,AD,9C,CD,BF,94,&OCOD 


,3A,54,BB,FE,36,&1232 

2380 DATA 3A,95,Al,B7,C2,84,9E,3E,00,32,95 [1652] 


2820 DATA 28,08 , 2A,26,AE,22,75,Al,18,06,2A [2170] 

,Al,3A,88,Al,32,&0F28 


, 3F,AE, 22,75, Al,Sr 09 42 

2390 DATA 87,Al,2A,7B,A1,22,79,A1,2A,79,Al [2719] 


2830 DATA 11,00,08,ED,52,22,77,Al,22,79,Al [3258] 

,54,5D,21,D2,A1,&1004 


,C9,3E,01,CD,OE,&0E57 

2400 DATA 01,OC,00,ED,BO,2A,79,A1,3E,00,32 [2821] 


2840 DATA BC,C9,3E,02,CD,OE,BC,C9,3A,84,Al [1592] 

,95,Al,CD,A5,9C,&0D3C 


,6F,26,00,0E,64,&0E65 

2410 DATA CD,F4,94,3A,95,Al,B7,C 8 ,CD,AD,9C [2458] 


2850 DATA CD,6C,9D,7D,C6,30,32,A8,Al,6C,26 [2226] 

, 18,DB,C9, FE, 00, SrlOlC 


,OO,0E,OA,CD,6C,ScOFE5 

2420 DATA 28,OB,FE,01,28,19,FE,02,28,24,C3 [3187] 


2860 DATA 9D,7D,C6,30,32,A9,Al,7C,C6,30,32 [2726] 

,90,9E,3A,71,Al,&1440 


, AA, Al ,C9,3A,8B,S<1169 

2430 DATA 32,00,A7,C6,41,32,50,9E,21,3C,9E [1509] 


2870 DATA Al,B7,20,OB,3A, 86 ,Al,47,3A, 8 C,Al [2107] 

,CD,69,AO,C9,DD,&10B6 


,80,32,8C,Al,3A,&12A6 

2440 DATA 7E,00,FE,02,D2,54,9E,32,71,Al,32 [2416] 


2880 DATA 86,Al,6F,26,00,OE,64,CD,6C,9D,7D [2059] 

,00,A7,C9,DD,7E,&0FC3 


,C6,30,32,B9,Al,Srl055 

2450 DATA 00,32,01,A7,DD,7E,02,18,E9,FE,01 [3513] 


2890 DATA 6C,26,00,OE,OA,CD,6C,9D,7D,C6,30 [2129] 

, FA, 85,91 ,C2,60, SiOA2 2 


, 32 , BA ,A1,7C,C6,Sr0C23 

2460 DATA 9E,DD,6E,00,DD,66,01,E5,3E,00,32 [2158] 


2900 DATA 30,32,BB,Al,C9,CD,78,9D,3E,00,32 [3540] 

, 8 D, Al ,32,70,Al,St0C4C 


, 8 B , Al, 3A, 84 , Al, Sr OB 90 

2470 DATA CD,5B,9B,El,46,23,5E,23,56,62,6B [2996] 


2910 DATA FE,E5,CC, 8 A,AO,CD, 88 ,9B,2A,79,Al [2437] 

, ED, 5B, 77 , Al, CD, Sil093 


,FD,2A,79,Al,23,&0F7D 

2480 DATA 77,BC,D2,85,99,CD,82,9B,CD,80,BC [2396] 


2920 DATA 22,79,Al,7E,FE,E5,20,10,2A,79,Al [3492] 

,D2,85,99,FE,0D,&1136 


,11, OF,00,19,22,S.1077 

2490 DATA 28,21,FE,OA,28,OA,FE,20,38,17,FE [3870] 


2930 DATA 79 , Al ,.3E, 00,32,8B, Al, C9,11, AC, Al [2827] 

,80,30,13,18,13, Si0E7C 


,01,08,00 ,ED,BO,SrOD25 

2500 DATA CD,5A,BB,3A,8D,A1,3C,32,8D,Al,FE [2762] 


2940 DATA FD,CB,09,7E,C4,72,AO,FD,CB,OA,7E [2889] 

,14,CA,78,99,18,&0C22 


,C4,7E,A0,2A, 79 , StllC9 

2510 DATA D7,3E,20,CD,5A,BB,18,DO,CD,27,9D [1636] 


2950 DATA Al,11,08,00,19,11,B5,Al,06,03,7E [3223] 

,28,05, CD, 82,9B, S(10C5 


, CB, BF ,12,23,13,S:0F0F 

2520 DATA 18,C6,CD,82,9B,CD,7A,BC,C9,FE,01 [2994] 


2960 DATA 10 , F8,2A,79,A1 , 11 , OF,00,19,22,79 [3346] 

,C2,9C,9E, DD, 6 E, SrlOll 


,Al,54,5D,06,10,&0F77 

2530 DATA 00,DD,66,01,46,23,5E,23,56,62,6B [2830] 


2970 DATA 3E,00,32,86,Al,7E,FE,00,28,OA,3A [2430] 

,11,00,00, CD, 77 , StlOA2 


, 86 ,Al,3C, 32,86,Srl023 

2540 DATA BC,D2,79,9A,C5,D5,F5,21,B 6 ,AO,CD [3461] 


2980 DATA Al,23,10,Fl,3A,8D,Al,FE,14,30,IE [2898] 

,69,AO,Fl,FE,00,Sd022 


,3A,8B,A1,B7,20,&0D37 

2550 DATA 28,OA,FE,01,28,OB,FE,02,28,OC,18 [2845] 


2990 DATA 07,3A,89,Al,3C,32,89,Al,CD,AE,9B [4022] 

, OF, 21,1F,A1,18, Stl27F 


,3A,8D,A1,3C,32,S.0D47 

2560 DATA OD,21,2D,Al,18,08,21,3F,Al,18,03 [3007] 


3000 DATA 8D,Al,21,A8,Al,CD,69,AO,C9,CD,27 [2515] 

,21,46,Al,CD,69,SODOO 


, 9D, 28,06 , CD, 7C, S 1 IOA 8 

2570 DATA AO,CD,61,9D,21,C2,AO,CD,69,AO,Dl [1352] 


3010 DATA 9B,C3,6B,9C,3E,3F,32,87,A1,C9,3E [2578] 

,7A,CD,7D,9A,7B,&1151 


,00,32,87, Al, DD, S.0EE3 

2580 DATA CD,7D,9A,CD,61,9D,21,CF,AO,CD,69 [4269] 


3020 DATA 7E,02,32,D2,Al,DD,6E,00,DD,66,01 [1694] 

,A0,D1,7A,CD,7D,ScOEDF 


,18,06,DD,6E,04,SOE7B 

2590 DATA 9A,7B,CD,7D,9A,CD,61,9D,21,DC,AO [3352] 


3030 DATA DD,66,05,7E,32,90,Al,54,5D,13,1A [3493] 

,CD,69,AO,ED,5B,&143B 


,6F,13,1A,67,22,&13B3 

2600 DATA 6 F,A7,7A,CD,7D,9A,7B,CD,7D,9A,CD [2972] 


3040 DATA 7D,Al,06,OB,11,D3,Al,3E,20,12,13 [3431] 

,61,9D,21,E9,AO,&0A5E 


,10,FC,11,D3,Al,&1026 

2610 DATA CD,69,AO,2A,6A,A7,ED,5B,6D,A7,19 [3398] 


3050 DATA 3E,00,32,91,Al,2A,7D,Al,7E,FE,61 [2965] 

,2B,7C,CD,7D,9A,&1099 


,30,lD,FE,2E,CA,Sr0D82 

2620 DATA 7D,CD,7D,9A,CD,61,9D,21,F6,AO,CD [2871] 


3060 DATA FF,9C,12,3A,91,Al,3C,32,91,Al,FE [2545] 

,69,AO,3A,19,A7,&12C8 


, OB, C 8 ,3A, 90 , Al, S.0D9F 

2630 DATA CD,7D,9A,21,FF,AO,CD,69,AO,3A,57 [3229] 


3070 DATA 47,3A,91,Al,B8,C8,13,23,18,DE,CB [3119] 

,BE,CD,7D,9A,21,&12C4 


, AF, 12,18 , E4,3A, SilOFO 

2640 DATA 10,Al,CD,69,AO,3A,58,BE,3C,CD,7D [3335] 


3080 DATA 90,A1,3D,32,90,Al,3A,91,Al,47,3E [2303] 

, 9A, CD, 61,9D, CD, Si 11C3 


,08,B8,28,E8,38,&151A 

2650 DATA 78,9D,21,13,Al,CD,69,AO,3A,09,A7 [3075] 


3090 DATA 07,90,47,13,10,FD,18,DF,90,3D,EE [2755] 

,FE,E5,CC,8A,AO,&16AE 


,FF,47,1B,10,FD,S(0D89 

2660 DATA 3A,12,A7,CB,7F,C4,72,AO,3A,13,A7 [2796] 


3100 DATA 3E,08,32,91 , Al,18,DO,3E,00,32,8D [2728] 

,CB,7F,C4,7E,AO,&QFB7 


, Al, 21,17,01 ,CD, SiOE69 

2670 DATA 21,BE,Al,CD,69,AO,CD,61,9D,CD,7A [2702] 


3110 DATA 75,BB,21,84,9D,CD,69,AO,CD,06,BB [2259] 

,BC,C9,F5,E6,F0,&12E4 


, FE,FC,C9,3A,87,S.0F13 

Listing Directory-Manager 
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3120 DATA A1,3C,32,87,A1,FE,40,C9,21,E3,9D [31081 
,CD,69,A0,CD,06,&1167 

3130 DATA BB,FE,FC,C9,3A,71,Al,5F,3A,72,Al [2452] 
,57,3A,74,A1,4F,S124C 

3140 DATA C9,3E,OD,CD,5A,BB,3E,OA,CD,5A,BB [3003] 
,C9,06,08,29,7C,S0FC8 

3150 DATA 91,38,02,67,2C,10,F7,C9,3E,20,21 [2542] 
,BE,Al,06,11,77,S0EC9 

3160 DATA 23,10,FC,C9,42,69,74,74,65,20,62 [2151] 
,65,6C,69,65,62,S0E8B 

3170 DATA 69,67,65,20,54,61,73,74,65,20,64 [2469] 
,72,75,65,63,6B,S0E0D 

3180 DATA 65,6E,20,2E,2E,2E,OD,00,53,69,65 [3860] 
,20,73,69,63,68,S12ED 

3190 DATA 65,72,6E,20,61,75,66,20,4C,61,75 [3313] 
,66,77,65,72,6B,51001 

3200 DATA 20,00,3A,OD,OA,00,53,69,65,20,66 [2646] 
,6F,72,6D,61,74,&0DB5 

3210 DATA 69,65,72,65,6E,20,4C,61,75,66,77 [2147] 
,65,72,6B,20,00,&OEBB 

3220 DATA 3A,OD,OA,53,69,6E,64,20,53,69,65 [2969] 
,20,73,69,63,68,50B25 

3230 DATA 65,72,20,3F,20,28,45,53,43,3D,41 [3191] 
,62,62,72,75,63,&1193 

3240 DATA 68,29,20,OD,OA,00,53,69,65,20,6B [3474] 
,6F,70,69,65,72,&11BF 

3250 DATA 65,6E,20,76,6F,6E,20,00,3A,20,6E [3222] 
,61,63,68,20,00,512C6 

3260 DATA 3A,OD,OA,00,00,00,00,07,2D,46,6F [3061] 

,72,60/61,74,00,&0D87 

3270 DATA 44,41,54,41,43,50,2F,4D,58,58,58 [3022] 
,58,41,6B,74,75,5123A 

3280 DATA 65,6C,6C,65,73,20,4C,61,75,66,77 [3334] 
,65,72,6B,3A,20,&125D 

3290 DATA 00,OD,OA,00,21,B4,9E,C3,69,AO,21 [3667] 
,C9,9E,C3,69,A0,&109F 

3300 DATA 21,DB,9E,C3,69,AO,21,F2,9E,C3,69 [3567] 

,AO,21,06,9F,C3,S11A8 

3310 DATA 69,A0,21,27,9F,C3,69,A0,21,42,9F [2215] 

,C3,69,AO,21,6B,SODAS 

3320 DATA 9F,C3,69,AO,21,81,9F,C3,69,AO,21 [3191] 
,99,9F,C3,69,A0,51032 

3330 DATA 21,BD,9F,C3,69,AO,21,E7,9F,C3,69 [2904] 

,AO,21,03,AO,C3,S10CD 

3340 DATA 69,AO,21,1A,AO,C3,69,AO,21,36,AO [3037] 

,C3,69,AO,21,58,S0D3F 

3350 DATA AO,C3,69,AO,30,3D,44,72,69,76,65 [4213] 
,20,41,2C,20,31,&1206 

3360 DATA 30,44,72,69,76,65,20,42,00,44,69 [3034] 
,73,6B,65,74,74,S0FE5 

3370 DATA 65,6E,2D,46,65,68,6C,65,72,21,00 [3343] 
,42,69,74,74,65,5.1151 J 

3380 DATA 20,6E,75,72,20,31,20,50,61,72,61 [2230] 
,6D,65,74,65,72,SOEOC 

3390 DATA 21,00,55,6E,67,75,65,6C,74,69,67 [2568] 

,65,72,20,4F,66,5.1438 

3400 DATA 66,73,65,74,21,00,32,20,50,61,72 [3562] 
,61,6D,65,74,65, S0A54 

3410 DATA 72,20,28,55,73,65,72,2C,20,46,69 [2910] 
,6C,65,6E,61,6D,S0E97 

3420 DATA 65,2E,45,78,74,29,00,30,3D,4B,6F [3362] 
,70,69,65,20,41,5104B 

3430 DATA 2D,3E,42,2C,20,31,3D,4B,6F,70,69 [3697] 
,65,20,42,2D,3E, SODEO 

3440 DATA 41,00,33,20,50,61,72,61,6D,2E,28 [2863] 
,55,73,65,72,2D,S0D10 

3450 DATA 6E,65,75,2C,55,73,65,72,2D,61,6C [2440] 
,74,2C,46,69,6C,Stl41E 

3460 DATA 65,6E,61,6D,65,2E,45,78,74,29,00 [2719] 
,46,69,6C,65,20, S13A2 

3470 DATA 6E,69,63,68,74,20,76,6F,72,68,61 [2890] 
,6E,64,65,6E,21,S.0F26 

3480 DATA 00,46,69,6C,65,20,62,65,72,65,69 [2929] 
,74,73,20,76,6F, SOEFC 

3490 DATA 72,68,61,6E,64,65,6E,21,00,33,20 [3035] 
,50,61,72,61,6D,50F92 

3500 DATA 2E,20,28,4E,61,6D,65,2D,6E,65,75 [2536] 
,2C,20,55,73,65,S0FE2 

3510 DATA 72,2C,20,4E,61,6D,65,2D,61,6C,74 [2556] 

,29,00,6D,61,78,51245 

3520 DATA 2E,20,32,20,50,61,72,61,6D,74,65 [2110] 

,72,20,28,4C,61,51378 

3530 DATA 75,66,77,2E,20,6F,64,65,72,20,4C [2147] 
,61,75,66,77,2E,S0B69 

3540 DATA 2C,55,73,65,72,29,00,42,69,74,74 [2141] 
,65,20,44,69,72, S0D8D 
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3550 DATA 65,63,74,6F,72,79,20,65,69,6E,6C 
,65,73,65,6E,21,S0E66 

3560 DATA OD,OA,00,4E,75,72,20,46,69,6C,65 
,6E,61,6D,65,6E,S0EF5 

3570 DATA 20,65,69,6E,67,65,62,65,6E,00,32 
,20,50,61,72,61,S0FF4 

3580 DATA 6D,65,74,65,72,20,28,4C,61,75,66 
,77,65,72,6B,2C,&10E5 

3590 DATA 55,73,65,72,29,00,32,20,50,61,72 
,61,6D,2E,20,28,S0F02 

3600 DATA 5A,69,65,6C,66,69,6C,65,2C,55,72 
,73,70,72,75,6E,&1242 

3610 DATA 67,73,66,69,6C,65,29,00,44,61,74 
,65,69,20,7A,75,S10A3 

3620 DATA 20,67,72,6F,73,73,20,21,00,7E,B7 
,C8,CD,5A,BB,23,S0DB4 

3630 DATA 18,F7,21,9B,AO,11,BE,Al,01,03,00 
,ED,B0,C9,21,9E,&0B7F 

3640 DATA AO,11,C2,Al,01,06,00,ED,BO,C9,21 
,A4,AO,11,C9,Al,&0E17 

3650 DATA 01,06,00,ED,BO,3E,01,32,8B,Al,C9 
,52,2F,4F,48,49,S0F39 

3660 DATA 44,44,45,4E,45,52,41,53,45,44,44 
,69,72,65,69,6E,&0F90 

3670 DATA 74,72,2E,20,20,20,44,61,74,65,69 
,61,72,74,20,3A,5112D 

3680 DATA 20,00,53,74,61,72,74,61,64,72,2E 
,3A,20,26,00,4C,SOFAO 

3690 DATA 61,65,6E,67,65,20,20,20,3A,20,26 
,00,41,75,74,6F,S112F 

3700 DATA 73,74,61,72,74,3A,20,26,00,45,6E 
,64,2D,41,64,72,51311 

3710 DATA 2E,20,3A,20,26,00,42,6C,6F,63,6B 
,3A,20,26,00,20,S0CE8 

3720 DATA 54,72,61,63,6B,2F,53,65,6B,74,6F 
,72,3A,20,26,00,&10D2 

3730 DATA 2F,26,00,53,74,61,74,75,73,20,20 
,20,3A,20,00,42,&0FC7 

3740 DATA 41,53,49,43,2C,20,6E,6F,72,6D, 61 
,6C,00,42,41,53,50DFB 

3750 DATA 49,43,2C,20,67,65,73,63,68,75,65 
,74,7A,74,00,42,&0F43 

3760 DATA 69,6E,61,65,72,00,41,53,43,49,49 
,00,00,00,CI,02,50EOD 

3770 DATA 00,00,C6,02,00,00,C2,02,00,00,C7 
,02,00,00,C3,02,50D28 

3780 DATA 00,00,C8,02,00,00,C4,02,00,00,C9 
,02,00,00,C5,02,505C2 

3790 DATA 00,00,00,00,CI,00,00,00,00,00,00 
,00,00,00,00,00,5038A 

3800 DATA 00,00,00,CO,00,00,00,30,00,00,01 
,00,00,00,00,00,50396 

3810 DATA 00,00,00,00,00,00,63,C7,07,5D,C5 
,07,66,C6,07,4E,50B3D 

3820 DATA C6,07,81,C5,07,52,C6,07,30,30,30 
,20,20,20,20,20,50A35 

3830 DATA 20,20,20,20,2E,20,20,20,20,30,30 
,30,4B,20,20,20,511AB 

3840 DATA 20,20 ,.20,20,20,20,20,20,20,20,20 
,20,20,20,20,OD,50FC8 

3850 DATA OA,00,00,00,00,00,00,00,00,00,00 
,00,00,00,5062D 
3860 DATA EOF 
3870 : 

3880 MEMORY 58FFF 

3890 zeile= 1000 : schritt= 10:adr=S9000:sta 
rt=adr:zz =0 

3900 PRINT"Zeile:";zeile; 

3910 READ b$ 

3920 IF b$ = "EOF" GOTO 4040 

3930 IF MID$(b$,1,1)="5" GOTO 3990 

3940 b=VAL("5"+b$) 

3950 POKE adr,b 

3960 sum=sum+(PEEK(adr)*(po%+1)+po%+l) MOD 
521 

3970 adr=adr+l:po%=po%+l : IF po%=l27 THEN p 
o %=0 

3980 GOTO 3910 

3990 zz=zz+l:sum=sum+INT(zz/127) 

4000 IF sum=VAL(b$) THEN v=6 ELSE v=174:fe 
hler=fehler+1:CALL 5BB06 
4010 PRINT CHR$(1)CHR$(v) 

4020 sum=0:zeile=zeile+schritt 
4030 GOTO 3900 

4040 SAVE "DIR.BIN",b,59000,511DE 
4050 PRINT fehler;" Fehler" 

4060 END 
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[2821] 

[3601] 

[2764] 

[3128] 

[ 2121 ] 

[1931] 

[2496] 

[2861] 

[3251] 

[2232] 

[2777] 

[2813] 

[2876] 

[2902] 

[2141] 

[2533] 

[2397] 

[2731] 

[2267] 

[3362] 

[2412] 

[2613] 

[1818] 

[3275] 

[3350] 

[1906] 

[2863] 

[2868] 

[2139] 

[2535] 

[1994] 

[287] 

[174] 

[207] 

[2173] 

[1475] 

[315] 

[ 1220 ] 

[1115] 

[988] 

[92] 

[2810] 

[1428] 

[491] 

[2236] 

[3875] 

[1605] 

[1397] 

[493] 

[1157] 

[1894] 

[ 110 ] 
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Programme per Knopfdruck 

Realisierung echter residenter 
Programme auf dem CPC 

Man glaubt es kaum. Im Sommer 1990 feiert der CPC seinen sechsten 
Geburtstag, und immer noch gibt es Programme, die (meines Wissens) noch 
nicht auf ihm verwirklicht wurden. Dazu gehören zum Beispiel speicher¬ 
resident ladbare Programme. Programme also, die einmal in den Speicher 
geladen werden und dort schlummern, bis sie per Knopfdruck aus ihrem 
Dornröschenschlaf erweckt werden, um in Aktion zu treten. 


Auf dem PC sind sie ständig anzutreffen, gehören fast zur 
Pflichtausstattung jedes PC. Wer hat sie dort nicht? Hier ein 
Taschenrechner, dort eine Hardcopy-Routine oder ähnli¬ 
ches. Alles per Tastendruck. 

Sie können aus der Textverarbeitung kurz in die Benutzer¬ 
oberfläche springen, um sich das Disketteninhaltsverzeich¬ 
nis anzusehen, und befinden sich anschließend wieder genau 
dort, wo sie aus der Textverarbeitung ausgestiegen sind. 
Dabei hat das Textverarbeitungsprogramm von alledem 
nichts gemerkt. Oder gefällt Ihnen eine Grafik? Mit dem pas¬ 
sendem Programm im Hintergrund speichern Sie diese im 
Nu auf Diskette oder Festplatte. Dabei müssen Sie nie ein 
Programm verlassen, ja niemals merkt das unterbrochene 
Programm etwas davon, daß Sie es im Stich gelassen haben. 
Praktisch, oder? Jedoch haben Sie etwas derartiges schon auf 
dem CPC gesehen? Fehlanzeige! Da drängt sich die Frage 
auf: Warum eigentlich nicht? Dabei ist es mit ein paar Tricks 
doch recht einfach zu realisieren. 

Möchten auch Sie diesen Komfort auf dem CPC genießen, so 
lege ich Ihnen folgende kurze “Bauanleitung“ ans Herz. 
Als Ausrüstung benötigen Sic neben Ihrem CPC einen belie¬ 
bigen Assembler. Entscheiden Sic sich dann noch für eine Ih¬ 
nen angenehme Taste oder Tastenkombination. Da die Tabu¬ 
lator-Taste praktisch nie benötigt w’ird. habe ich sie gewählt. 
Schreiben wir zuerst die eigentliche Routine. Das Einbinden 
ins Betriebssystem soll anschließend behandelt werden. Um 


zu wissen, ob eine Taste gedrückt wurde, und wenn ja. ob es 
sich hier um die Tab-Taste handelt, sollten wir öfters die Ta¬ 
statur abfragen. Freundlicherweise stellt uns die Firmware 
des CPC hierfür eine passende Routine zur Verfügung: 


KM TEST KEY 

(Routine Nr. 10, Adresse &BB1E) 

Aufgabe: Überprüfung, ob eine Taste betätigt ist. 

Diese Routine untersucht, ob eine Taste oder ein Knopf eines 
Joysticks beziehungsweise einer Maus gedrückt wurde. Sie 
erwartet im A-Register eine 8-Bit-Tastennummer. Sinnvolle 
Werte liegen im Bereich von 0 bis 79. Als Antwort erhalten 
Sie folgende Nachricht im Flag-Register: 

Z-Flag aus: Taste gedrückt 
Z-Flag an : Taste nicht gedrückt 

Nebenwirkungen: CARRY-FLAG ist ausgeschaltet; C ent¬ 
hält den momentanen Stand der Shift- und Control-Taste (Bit 
7 = 1 = > Control-Taste gedrückt; Bit 5 = 1 = > Shift-Taste 
gedrückt); A, HL und alle anderen Flags sind zerstört; alle 
anderen Register unverändert. 


Alles, was wir noch benötigen, ist die Nummer unserer Ta¬ 
ste. Sie beträgt 68. 

(Vergi: Firmware-Handbuch (!) oder CPC 464 Benutzerhandhueh, Anhang III, 

Seite 16 <2» 
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;Routine für die Tastaturabfrage innerhalb der Interrupt- 
Steuerung des Betriebssystems 


TESTKE: EQU 

#BB1E 

; KM TEST KEY 

INTENT: EQU 

# B939+1 

;CPC 464 

;CPC 664 
und 6128: EQU 

#B94l+l 


INT_R0: LD 

A,68 

; Tastennummer nach A 

CALL 

TESTKEY 

(Tab-TASTE) 

; Taste überprüfen 

RET 

Z 

; Nicht betätigt? >Ende 

V_FLAG: LD 

A,0 

; Hintergrundprogramm schon 

0R 

A 

aktiv? 

RET 

NZ 

;Jä? >Ende 

INC 

A 

;sonst erneuten Aufruf 

LD 

(V_FLAG+l),A 

;verhindern 

ID 

(VERZWEIG+1), A 


LD 

A,(INTENTRY) 

; Inhalt der zu ändernden 

LD 

HL,(INTENTRY+1) 

Stelle im 

;Betriebssystem sichern 

LD 

(INT_81+1),A 

LD 

(INT_B2+1),HL 


LD 

A, # CD 

1 Obcode 1 > CALL XY< 

LD 

HL,INTSTEUER 

;neue Adresse (Obcode 2) 

INT..SW: DI 

(INTENTRY),A 

; Unterbrechungen sperren 

LD 

;neue Verzweigung in die 

LD 

(INTENTRY+1),HL 

.•Betriebssystem-Routine 

EI 


einsetzen 

; Unterbrechungen wieder 

RET 


freigeben 
;Patch beendet 


Listing 1 


Übergeben wir den Wert 68 im A-Register an KM TEST 
KEY, so erhalten wir im Z-Register die benötigten Informa¬ 
tionen über den Zustand der Tab-Taste. Ist sie nicht betätigt 
(Z-FIag = 1), dann ist für uns alles erledigt und unser Pro¬ 
gramm beendet (Teil 1 der Routine): 

INT_ROUTINE: LDA,68 

CALI. &BB1E 
RETZ 

Andernfalls sollte die Routine jedoch schleunigst in unser 
Hintergrundprogramm springen. Dabei stellt sich jedoch fol¬ 
gendes, auf den ersten Blick äußerst schwieriges Problem in 
den Weg: 

Um nachher wieder unbeschadet in das laufende Programm 
zurückkehrenzu können, darf kein einziges Prozessor-Regi¬ 
ster, Register-Flag oder gar die RAM/ROM-Konfiguration 
verändert sein. Dies ist momentan sichergestcllt (durch die 
Einbindung der Routine als “Ereignis“ (näheres weiter un¬ 
ten)). Allerdings ist dieser Zustand nur für Routinen mit we¬ 
nigen Assembler-Befehlen gedacht, da sonst das Timing des 
CPC und damit die Tastaturabfrage, die Bildschirmansteue- 
rung und so weiter hoffnungslos durcheinander geraten; für 
das Hintergrundprogramm folglich nicht geeignet. 

Aus der Trickkiste 

Nach Abschluß dieser Routine wird das normale Programm 
somit weiter ausgeführt, und unser Programm wäre zum 
Nichtstun verurteilt. Alles, was uns hier noch weiterhelfen 
kann, ist ein tiefer Griff in die Trickkiste, um das Betriebssy¬ 
stem zu überlisten. Und zwar wird die Firmware-Routine 
INTERRUPT ENTR Y CONTD leicht abgeändert (an Adres¬ 
se: CPC 464: &B939 + 1; CPC 664/6128: &B941 + 1). Dies 
geschieht durch die restlichen Befehle im Listing 1. Die Be¬ 
schreibung der genauen Auswirkungen würde hier zu weit 


führen und ist sicherlich auch nur für die Profis unter Ihnen 
von Interesse. Deshalb hier die Auswirkungen dieser Mani¬ 
pulation in Kürze: Der Patch bewirkt, daß nach Ausführung 
unserer zweiten Routine (Listing 2) die gespeicherte Rück¬ 
sprung-Adresse des momentan aktiven Programms auf dem 
Prozessor-Stack durch die Startadresse unseres Hintergrund- 
Programms ersetzt wird. 

Somit wird nach Abschluß der Interrupt-Routine automatisch 
in das Hintergrundprogramm verzweigt, und dieses läuft an¬ 
stelle des bisher aktiven Programms ab - und der CPC hat 
nichts gemerkt. Ist dieses Programm irgendwann beendet, so 
wird die (zwischengespeicherte) Adresse der Programmstel¬ 
le des ehemaligen Vordergrundprogramms wieder aktiviert 
und dieses Programm exakt an der Stelle fortgeführt, wo es 
unterbrochen wurde — als ob nie eben diese Unterbrechung 
aufgetreten wäre. 

Das Betriebssystem 

Die Tastatur ist selbstverständlich ständig abzufragen. Dazu 
muß die eben erstellte Routine mehrmals in der Sekunde ab¬ 
gearbeitet werden, damit kein Tastendruck unbemerkt 
bleibt. Hierzu stellt das Betriebssystem seine Interrupt-Be¬ 
handlung zur Verfügung. 

Die Routine ist hier zu den bereits ständig vorhandenen Stan¬ 
dard-Ereignissen hinzuzufügen. Dabei gibt es verschiedene 
Möglichkeiten. Durch den Eintrag in die Bildaufbau-Liste 
zum Beispiel wird die Tastatur 50mal in der Sekunde gete¬ 
stet, was mehr als ausreichend ist. Mit Hilfe von KL NEW 
FRAME FLY ist die Routine beim Betriebssystem anzu¬ 
melden. 


; Steuerung für den Aufruf des Hlntergrundprogramms 


INTSTE: EX 

AF,AF' 

; zweites AF-Register 



benutzen 

PUSH 

AF 

;vorher jedoch sichern 

VERZWE: LD 

0R 

A,0 

; Aufruf zugelassen? 

LD 

A,0 


LD 

(VERZWEIG+1),A 


JR 

NZ,INTSWI 

;Ja > weiter 

POP 

AF 

jNein? > AF restaurieren 



und 

RET 


;Ende 

IMTSW1: POP 

AF 

;AF restaurieren 

EXX 


; zweiten Registersatz 



einschalten 

LD 

(RETBC+1),BC 

;BC sichern (momentaner 



RAM/ ROM 

SET 

3,C 

;Status in C!); oberes ROM 

SET 

2,C 

; und unteres ROM 

OUT 

(C),C 

; sperren ( > RAM ist 



selektiert) 

POP 

DE 


POP 

HL 

;Rücksprung-Adresse ins 



Vordergrund 

LD 

(RETPC+1),HL 

; Programm für SDäter 



sichern 

LD 

HL,P_E.IN 

; Adresse für den Einsorune 



ins 



;Hintergrundprogramm 



anstelle der 



;Adresse des Vordergrund- 

PUSH 

HL 

jprogramms einsetzen 

PUSH 

DE 

; (im Prozessor-Stack) 

EXX 


; ersten Registersatz 



wieder selektieren 

RET 


;fertig! 


Listing 2 
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KL NEW FRAME FLY 
(Routine Nr. 157, Adresse &BCD7) 

Aufgabe: Block initialisieren und ihn an die Bildaulbauliste 
übergeben. 

Der Kern des Betriebssystems führt eine Liste der Ereignis¬ 
se, die jedesmal, wenn ein Bild aufgebaut wird, angestoßen 
werden müssen. 

Diese Routine initialisiert einen Block und stellt ihn in die 
Liste. 

Einsprung-Bedingungen: HL = Adresse des Bildaufbau¬ 
blocks (Länge: 9 Bytes) 

B = Ereignis-Klasse 

C = ROM-Auswahladresse der Ereignisroutine 
DE = Adresse der Ereignisroutine 

Aussprung-Bedingungen: AF, DE und HL zerstört; alle an¬ 
deren Register unverändert. 


Die notwendige Initialisierungsroutine, die die Tastaturab¬ 
frage hier einreiht, finden Sie in Listing 3. In Listing 1 finden 
Sie die Routine zur Interrupt-Behandlung (ständige Tastatur¬ 
abfrage). Die nicht erwähnten Befehle dienen zur Absiche¬ 
rung der Routine gegen unerwünschte Aufrufe, das bedeutet, 
falls die Tab-Taste gedrückt werden sollte, wenn bereits das 
Hintergrundprogramm aktiviert ist, daß natürlich nicht er¬ 
neut dorthin verzweigt werden darf. Listing 2 bewirkt den 
Austausch der Rücksprung-Ad resse in der Interrupt-Behand¬ 
lung des Betriebssystems. Listing 4 ermöglicht schließlich 
die^Ausführung des gewünschten Programms, indem es alle 
notwendigen Vorbereitungen (wie Sichern der Prozessor- 
Register) hierfür übernimmt. Die Adresse des Programms ist 
im Befehl “CALL PROGRAMM“ einzutragen. Außerdem 
erfolgt hier der Rücksprung in das “normale“ Programm 
nach der Restaurierung der Prozessor-Register. 

Einsatz in der Praxis 

Hier sollten Sie alle vier Listings zusammen assemblieren, 
nachdem Sie die benötigte Programm-Adresse vermerkt ha¬ 
ben. Das entstandene Programm ist anschließend zusammen 
mit dem auszuführenden Programm in den Arbeitsspeicher 
des CPC zu laden (Achtung: BASIC-Speicherobergrenze 
vorher herabsetzen) und dann einmalig durch einen CALL- 
Befehl aus BASIC aufzurufen. Ab sofort steht Ihnen auf 
Knopfdruck Ihr Programm ständig in allen anderen Pro¬ 
grammen zur Verfügung. 

Sollten Sie mehrere Programme über unterschiedliche Ta¬ 
stenkombinationen aufm len wollen, so ist dies durch mehr¬ 
maligen Aufruf von KM TEST KEY einfach zu realisieren. 


;Tastaturabfrage-Routine (Listing l) in die Interrupt- 

; Verwaltung integrieren ; 


LD 

BC, #S1FC 

;Interrupt-Block 

LD 

DE,INT_R0UT 

; im Betriebssystem anmelden 

LD 

HL, BLOCK 

;Adresse Block nach HL 

JP 

NEWFFLY 


BLOCK: DEFB 

0,0,0,0,0)- 



#10000001 

; Interrupt-Block 

DEFB 

INT_R0UT 

; Adresse der 



Interrupt-Routine 

DEF3 

0 



Listing 3 


;Einspr. 

• _ 



;Ausspr. 

: alle Register (ausser I) unverändert 

P_EIN: 

ID 

(RETLHL+1),HL 

; alle Register müssen 


LD 

(RETJ3E+1),de 

;gesichert werden, damit 


LD 

(RET_BC+1),BC 

;sie später restauriert 


LD 

(RET_IX+2),IX 

; werden können 


LD 

(RET_IY+2),IY 



PUSH 

AF 

;AF auch 


P0F 

HL 



LD 

(RET_AF+1) ,HL 



LD 

A,I 



LD 

(RET_I+l) , A 


INT_B1: 

LD 

A ,0 

;hier sind beim 




Programmablauf 

INT B2: 

LD 

HL,0 

;die 3 Bytes des patch 




gespeichert 


CALL 

INT_SW 

; Patch rückgängig machen 

» 

CALL PROGRAMM 

;hier die Programmadresse 




eintragen 

* 

DI 


; Unterbrechung verbieten 


XOR 

A 

; neuen Aufruf 


LD 

(V_FLAG+l)- 




,A 

;zulassen 

RET I: 

LD 

A,0 

;ab hier alle Register 




restaurieren 


LD 

I, A 

;I 

RET_AF : 

LD 

HL,0 

»AF 


PUSH 

HL 



POP 

AF 



EXX 


;zweiten Registersatz ein 

RETBC: 

LD 

BC,0 

; ehemalige RAH/ROM- 




Konfiguration 


OUT 

(c),c 

; wieder hersteilen 


EXX 


; ersten Registersatz zurück 

RETPC : 

I.D 

HL,0 

;Rücksprungadresse ins 




Vordergrund- 


PUSH 

HL 

;Programm auf Stack 

RET IX: 

LD 

IX, 0 

; restliche Register 




restaurieren 

RET_IY : 

LD 

IY ,0 


RET_HL: 

LD 

HL,0 


RET_DE : 

LD 

DE,0 


RET_BC: 

LD 

BC,0 



EI 


;Unterbrechungen können 




wieder auftreten 


RET 


; und ganz normal weiter im 




;Vordergrundprogramm 


Listing 4 


Zum Schluß noch ein wichtiger Hinweis (unbedingt beach¬ 
ten!): Die residenten Programme dürfen in keinster Weise 
System-Variablen verändern! Das heißt, sie dürfen dies 
schon, nur muß sichergestellt sein, daß sie hinterher wieder 
originalgetreu hergerichtet werden. 

Hiermit dürfte erneut der Beweis geführt worden sein, daß 
(fast) alles, was auf einem PC geht, auch (ansatzweise) auf 
dem CPC möglich ist. 

(Klaus Kremer/rs) 


Literatur 

(1) Schneider: Das komplette CPC 464 

Betriebssystem, Firmware 
Handbuch, SOFT 258, 
Türkheim 1984 

(2) Schneider: Colour Personal Computer 

> CPC 464 < Benutzer- 
Handbuch , Türkheim 1984 
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CUT 

dBase komprimiert 

dBase ist eine Interpretersprache. Da dieser Interpreter 
jedoch nur jeweils vier Zeichen der verwendeten Befehle 
benötigt, bietet es sich an, alle verw endeten Befehle auf 
eine Länge von vier Zeichen zu stutzen. 

CUT verkürzt den dBase-Sourcecode in der Form, daß alle 
unnötigen Zeichen und Zeichenfolgen, auch Remarks aus 
dem Programm gestrichen werden. Durch die Verschachte¬ 
lungen und die daraus resultierenden Einrückungen im Pro¬ 
grammtext entstehen sehr viele Leerzeichen, welche CUT 
entfernt. 

dBase kennt noch eine Besonderheit. Bei der Programmaus¬ 
führung werden nur die ersten vier Buchstaben eines Befehls 
benötigt. Sollte zum Beispiel in Ihrem Programm die Zeile 
“set intensity on“ Vorkommen, so wird diese Zeile durch 


CUT zu "set inte on". Diese oben genannten Verkürzungen 
bieten zum einen den Vorteil, daß sie auf der Diskette weni¬ 
ger Speicherplatz benötigen, anderseits wird eine schnellere 
Abarbeitung des Programms gewährleistet. 

In der Praxis 

Voraussetzung ist, daß alle Befehlswörter in Kleinbuchsta¬ 
ben geschrieben werden. 

Nachdem Sie Ihr Programm geschrieben und getestet haben, 
kopieren Sie alle Dateien auf Ihre Arbeitsdisketle. Das Origi¬ 
nal mit allen Remarks und übersichtlichen Gliederungen he¬ 
ben Sie sich für eventuelle spätere Änderungen auf. Starten 
Sie CUT. Alle CMD-Dateien werden nun aufgelistet, und 
Sie können bis zu zehn Dateien (ohne Extension) eingeben. 
Anschließend werden alle Dateien komprimiert und auf die 
Diskette zurückgeschrieben. Die alten Versionen werden da¬ 
bei gelöscht. 

(Roland Schäffer/rs) 


für 464-664-6128 

[" 

10 DEFINTa-z:anzahl=78:DIM p$(anzahl),a$(2 [10697] 
00),name$(ll):FOR a=l TO anzahlrREAD p$(a) 
:NEXT:GOSUB 410:LOCATE 1,10:PRINT"Bitte Ar 
beitsdiskette einlegen und Taste druecken" 

:CALL &BB06:GOSUB 410 

20 maske$="*.cmd":LOCATE l,3:DIR,@maske$: [12631] 
PRINT:PRINT STRINGS(160,"."):an=0:WHILE n$ 

<>"@" AND an<ll:an=an+l:LOCATE 1,22:PRINT 
SPACES(70)rLOCATE 1,22:INPUT" Progranunname 
(Eingabe beenden mit @ ): ",n$:nameS(an 
)=n$rWEND 

30 nameS(an)="":proganz=an-l:GOSUB 4l0:lx= [3218] 
50:ly=5 

40 FOR a=l TO proganzrLOCATE lx,ly:PRINT ü [14015] 
PPERS(nameS(a))rLOCATE lx+9,ly:PRINT".CMD" 

:ly=ly+1:nameS(a)=UPPER$(nameS(a))+".CMD": 
NEXTrPLOT 350,1:DRAW 350,360:lx=65:ly=4 
50 FOR program=l TO proganzrLOCATE 1,5:PRI [13596] 
NT FRE(""):ly=ly+lrLOCATE 1,5:PRINT CHR$(2 
4)"in Bearbeitung :"CHR$(24)" "nameS(pr 
ogram)rGOSUB 70rLOCATE 1,7:PRINT CHR$(24)" 

Anzahl der Zeilen :"CHR$(24)" "zlang:zmax= 
zlangrGOSUB 90 

60 zmax=zlangrGOSUB 120:zmax=zlangrGOSUB 1 [13590] 
50:zmax=zlangrGOSUB 250rGOSUB 320rGOSUB 80 
:maske$="*.bak":ERA,@maske$rLOCATE lx,ly: 

PRINT"O.K."rGOSUB 420:NEXT:PRINT CHR$(7):E 
ND 

70 OPENIN nameS(program):i=l:WHILE NOT EOF [7576] 
rLINE INPUT#9,a$(i):i=i+l:WEND:zlang=i-l:C 
LOSEIN:RETURN 

80 OPENOUT nameS(program):FOR i=l TO zlang [6644] 

:PRINT#9,a$(i):NEXT:CLOSEOUT : FOR a=l TO 20 
0:a $(a) = "":NEXT:RETURN 

90 LOCATE 1,10:PRINT CHR$(24);" PASS 1 - [8633] 

Zeile " ; CHR$(24):FOR a=l TO zmax:LOCATE 20 
,10:PRINT a:b$=a$(a):l=LEN(b$):IF LEN(b$)= 

0 THEN a$(a)="["rGOTO 110 

100 WHILE LEFT$(b$,1)=" ":b$=MID$(b$,2,1-1 [5465] 

):1=1-1:WEND:a$(a)=b$:IF MID$(b$,1,4)="tex 
t" THEN GOSUB 360 

110 NEXT:RETURN [940] 

120 LOCATE 1,13:PRINT CHR$(24); M PASS 2 - [7633] 

Zeile ";CHR$(24):FOR a=l TO zmaxrLOCATE 2 
0,13:PRINT a:bS=a$(a):IF LEFT$(b$,1)="*" T 
HEN a$(a)="[":zmax=zmax-l 

130 IF MID$(b$,1,4)="note" THEN a$(a)="[": [3349] 
zmax=zmax-l 

140 NEXT:RETURN [940] 

150 LOCATE 1,16:PRINT CHR$(24);" PASS 3 - [11177] 

Zeile ";CHR$(24):FOR a=l TO zmaxrLOCATE 2 
0,16:PRINT a:b$=a$(a):l=LEN(bS):IF MID$(b$ 

,1,4)="text" THEN GOSUB 360rGOTO 240 

160 IF MID$(b$,1,1)=";" THEN b$=MID$(b$,1, [2831] 

1-1)+" "+";":a$(a)=b$ 

| Lialmg Cut.Bas _ 



170 k=INSTR(1,b$," "):IF k=0 THEN 240 [1796] 

180 FOR z=l TO 1:IF MID$(b$,z,1)<>CHR$(34) [2479] 
THEN 200 

190 z=z+l:WHILE MID$(b$,z,1)<>CHR$<34):z=Z [3780] 
+1rWENDrGOTO 230 

200 IF MIDS(b$,z,1)<>" " THEN 230 [1342] 

210 IF MID$(b$,z,l)=" " AND MID$(b$,z+1,1) [2996] 
<>" " THEN 230 

220 b$=MID$(b$,1,z)+MID$(b$,z+2,1-1)r1=1-1 [2354] 
.•GOTO 210 

230 NEXT:a$(a)=b$ [947] 

240 NEXT:RETURN [940] 

250 a=0rLOCATE 1,19:PRINT CHR$(24);" PASS [4719] 


4 - Zeile ";CHR$(24) 

260 a=a+l:IF a>zmax THEN 310 

270 LOCATE 20,19:PRINT a:IF MID$(a$(a),1)< 

>"[" THEN 260 

280 IF MID$(a$(a+1),1)="[" THEN 300 

290 zwi$=a$(a):a$(a)=aS(a+1):a$(a+1)=zwi$: 

GOTO 260:zlang=zlang-lrGOTO 260 

300 c=a:WHILE MID$(a$(c),1)="[" AND c<=zma 

x:c=c+lrWEND:zwiS=a$(a):a$(a)=a$(c):a$(c)= 

zwi$rGOTO 260 

310 a=l:WHILE LEN(a$(a))<>0:a=a+lrWENDrzla 
ng=a-l:RETURN 

320 LOCATE 1,22:PRINT CHR$(24);" PASS 5 - 
Zeile ";CHR$(24):FOR a=l TO zlangrLOCATE 
20,22:PRINT a:b$=a$(a):l=LEN(b$):FOR b=l T 
O anzahl:c$=p$(b):lc=LEN(c$):k=INSTR(1 ,b$, 
c$) 

330 IF k=0 THEN 350 

340 diff=l-k-lc+l:b$=MID$(b$,1,k-l)+MID$ (b 
$,k,4)+MIDS(b$,k+lc,diff) 

350 NEXT:a$(a)=b$:NEXT:RETURN 

360 k=0:WHILE k=0:k=INSTR(1,a$(a),"endtext 

"):IF LEN(a$(a))=0 THEN a$(a)=" " 

370 a=a+l:zmax=zmax-lrWEND:a=a-2:zmax=zmax 
-2:RETURN 

380 DATA accept,additive,alternate,append, 
ascending,before,blank,bottom,browse,cance 
1,carry,change,clear,colon,command,confirm 
,console,continue,count,create,debug,defau 
1t,deleted,delete,delimited,descending,dis 
play,ej ect,endcase,enddo,endif 
390 DATA erase,escape,exact,expect,extende 

d, fields,field,files,format,heading,index, 
input,insert,intensity,linkage,locate,marg 
in,memory,modify,noupdate,otherwise,pictur 

e, plain,primary,print,random,recall,record 
,reindex,release,remark,rename,replace 
400 DATA report,reset,restore,return,scree 
n,secondary,select,status,störe,structure, 
total,update,using,while 

410 MODE 2rLOCATE 15,1:PRINT CHR$(24)" C 
U T - dBASE II-Programmkomprimierun 
g "CHR$(24):RETURN 

420 FOB^zeile=5 TO 24rLOCATE 1,Zeile:PRINT 
SPACES(40):NEXT:RETURN 

| Listing Cut.Bas 


[1529] 

[2331] 

[1489] 

[3889] 

[4585] 


[3113] 

[12227] 


[571] 

[2679] 

[1579] 

[5643] 

[3584] 

[15553] 


[16558] 


[5829] 

[6066] 

[3056] 
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Schaltstation PC 

Device-Treiber unter DOS (3) 

In diesem dritten und letzten Teil der Serie über die Gerätetreiber von MS-DOS, 
beschäftigen wir uns mit den noch fehlenden Funktionen und stellen Ihnen 
das Gerüst eines Zeichentreibers vor, den sie nach Belieben ausfüllen können. 


Beginnen wir also da, wo wir beim 
letzten Mal aufgehört haben, mit Funk¬ 
tion 10. 

Funktion 10 Ausgabestatus 


Eingangsparanieter 
Off. Länge 

2 Byte Funktionsnr. (10) 

Rückgabewerte 
Off. Länge 

3 Wort Status. 

Dos RESCHÄFTIGT-Bit muß 1 sein, wenn die letzte 
Zeichenausgabe noch nicht abgeschlossen ist. 


Diese Funktion wird nur innerhalb ei¬ 
nes ZET (Zeichentreiber) verwendet. 
Bei BLT (Blocktreiber) wird nur im 
Statusfeld “FERTIG“ und “unbekann¬ 
ter Befehl“ gesetzt. Aufgabe dieser 
Funktion ist festzustellen, ob der letzte 
Schreibvorgang bereits abgeschlossen 
ist. Mitgeteilt wird die Antwort über 
das BESCHÄFTIGT-Bit im Status¬ 
wort, das gesetzt wird, wenn der 
Schreibvorgang noch am Laufen ist 
oder gelöscht wird, wenn er bereits 
beendet ist. Diese Information wird 
von DOS benötigt, um darüber ent¬ 
scheiden zu können, ob die Schreib¬ 
funktion wieder aufgerufen werden 
kann. Wie immer erwartet DOS im 
Statuswort die Mitteilung darüber, 
ob alles glatt ging, beziehungsweise ob 
der Treiber mit der Funktion FERTIG 
ist. 

Funktion 11: Ausgabe-Puffer löschen 


Eingangsparameter: 

Off. Länge 

2 Byte Funktionsnr. (11) 

Rückgabe werte: 

Off. Länge 

3 Wort Status 


Diese Funktion wird nur innerhalb ei¬ 
nes ZET verwendet. Bei BLT wird nur 
im Statusfeld das “FERTIG-Bit“ und 
“unbekannter Befehl“ gesetzt. Wie der 
Name schon sagt, löscht diese Funk¬ 
tion den Ausgabe-Puffer. Wie immer 
ist bei Beendigung der Funktion das 
FERTIG-Bit im Status wort zu setzen. 


Funktion 12: Direktes Schreiben 


Eingangsparanieter: 

Off. Länge 

1 Byte 

Nummer des angespro¬ 
chene Geräts (nur BLT) 

2 Byte 

Funktionsnr. (12) 

13 Byte 

Media-Descriptor 

14 Zeiger 

Adresse des Puffers, aus 
dem die Daten entnom¬ 
men werden sollen. 

18 Wort 

Anzahl der zu schrei¬ 
benden Sektoren (BLT); 
Anzahl der zu schrei¬ 
benden Zeichen (ZET) 

20 Wort 

Nummer des ersten zu 
schreibenden Sektors 
(BLT) 

Rückgabewerte: 

Off. Länge 

3 Byte 

Status 

18 Wort 

Anzahl der geschriebe¬ 
nen Zeichen (ZET); An¬ 
zahl der geschriebenen 
Sektoren (BLT) 


Diese Funktion ist das Gegenstück zur 
Funktion 3 'Direktes Lesen’. Sie dient 
zur Kommunikation zwischen Anwen¬ 
derprogramm und Treiber. Angewen¬ 
det werden kann sie jedoch nur, wenn 
das IOCTL-Bit im Treiber-Attribut ge¬ 
setzt ist, da DOS sonst davon ausgeht, 
daß der Treiber nicht IOCTL-fähig ist. 
Diese Funktion muß wieder von beiden 
Treiberarten unterstützt werden (wenn 
sie als IOCTL-fähig gekennzeichnet 
sind). Sie dient zur Übertragung von 
Zeichen beziehungsweise Sektoren auf 
die von dem Treiber unterstützten Ge¬ 
räte. Tritt während der Übertragung 
ein Fehler auf, so muß dieser im Status- 
Wort angegeben werden. 

Je nach Art des Treibers werden ver¬ 
schiedene Eingangsparameter überge¬ 
ben. Beide erhalten die Adresse eines 
Puffers, in dem sich die Daten befin¬ 
den, die geschrieben werden sollen. 
Ein Zeichentreiber erhält die Informa¬ 
tion, wieviele Zeichen geschrieben 
werden sollen. Blocktreiber erhalten, 
außer der Adresse des Puffers, noch 
folgende Daten: die Nummer des Ge¬ 
räts, auf das geschrieben werden soll 
(nur wichtig, falls der Treiber mehrere 
logische Geräte unterstützt), den Me¬ 


dia-Descriplor des angesprochenen 
Geräts, die Anzahl der zu schreibenden 
Sektoren sowie die Nummer des ersten 
zu schreibenden Sektors. 

Als Antwort erwartet DOS das Status- 
Wort sowie die Anzahl der geschriebe¬ 
nen Zeichen beziehungsweise Sekto¬ 
ren. Ist während der Übertragung zum 
Gerät ein Fehler aufgetreten, so muß 
dies DOS durch Setzen des Bits 15 im 
Status-Wort mitgeteilt werden. In den 
Bits 0-7 muß sich die Nummer des auf¬ 
getretenen Fehlers befinden. 

Die nun folgenden 4 Funktionen wer¬ 
den erst ab der DOS-Version 3.xx un¬ 
terstützt. 

Hierbei gilt es, noch ein kleines Ver¬ 
säumnis nachzuholen. Das Bit 11 im 
Treiberattribut gibt nicht nur an, daß 
ein Mediumwechsel erkannt wird, son¬ 
dern signalisiert DOS auch, daß die 
nun folgenden Funktionen unterstützt 
werden. Wenn dieses Bit nicht gesetzt 
ist. braucht der Treiber diese Funktio¬ 
nen auch nicht zu unterstützen. 

Funktion 13 Öffnen. 


Eingangsparanieter 
Off. Länge 

1 Byte Gerätenummer (nur 

BLT) 

2 Byte Funktionsnr. (13) 

Rückgabewerte 
Off. Länge 

3 Wort Status 


Die BLTs nutzen diese Routine bei je¬ 
dem Öffnen einer Datei. Dadurch läßt 
sich mit Hilfe der Routine feststellen, 
wieviele Dateien auf einem Gerät, des¬ 
sen Gerätenummer übergeben wird, 
geöffnet sind. Probleme gibt es mit al¬ 
ten Programmen, die Dateien noch mit 
FCB-Funktionen, einem Überbleibsel 
aus CP/M-Zeiten, bearbeiten. Diese 
Programme neigen dazu, geöffnete 
Dateien nicht mehr zu schließen. 
Man kann dieses Problem dadurch um¬ 
gehen. daß man nach einem Medium¬ 
wechsel alle Dateien für geschlossen 
erklärt. Bei Festplatten, die von Natur 
aus selten im Betrieb gewechselt wer¬ 
den, versagt diese Methode natürlich. 
Bei Zeichentreibern kann diese Funk¬ 
tion die Aufgabe übernehmen, vor der 
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Übertragung von Zeichen an ein Gerät 
zuerst einmal einen Initialisierungs- 
String zu senden. Auch kann innerhalb 
eines Netzwerks beziehungsweise ei¬ 
ner Multitasking-fähigen DOS-Ver- 
sion mit Hilfe dieser Funktion verhin¬ 
dert werden, daß zwei Prozesse zu¬ 
gleich auf ein Gerät losstürmen, was 
zumeist nur Chaos zur Folge hat. 
Zu beachten ist, daß bei den Geräten 
CON, PRN und AUX diese Funktion 
nicht aufgerufen wird, da sic immer ge¬ 
öffnet sind. Als Rückgabewert erwar¬ 
tet DOS nur das Statuswort. 

Funktion 14: Gerät schließen. 


Eingangsparameter 
Off. Länge 

1 Byte Gerätenummer (BLT) 

2 Byte Funktionsnr. (14) 

Rückgabewerte 
Off. Länge 

3 Wort Status 


Wie unschwer zu erkennen ist. ist diese 
Funktion das Gegenstück zur Funktion 
13 'Öffnen’. Auch sie besitzt bei den 
beiden verschiedenen Arten von Trei¬ 
bern unterschiedliche Aufgaben. Bei 
einem Blocktreiber wird diese Funk¬ 
tion immer nach dem Schließen einer 
Datei aufgerufen. Bei einem Zeichen¬ 
treiber wird diese Funktion nach einer 
Ausgabe auf ein Gerät aufgerufen. 
Hier könnte zum Beispiel ein Ab¬ 
schluß-String an einen Drucker ge¬ 
sandt werden (zum Beispiel Zurückset¬ 
zen der Schrift auf normal). 

Diese Funktion wird, ebenso wie 
Funktion 14 nicht auf die Geräte CON, 
AUX und PRN angewendet. 

Als Rückgabe wie immer FERTIG 
oder, falls etwas passiert sein sollte, 
die entsprechende Fehlermeldung. 

Funktion 15: Ist das Medium wech¬ 
selbar? 


Eingangsparanieter 
Off. Länge 

1 Byte Gerätenummer 

2 Byte Funktionsnr. (15) 

Riickgabcwerte 
Off. Länge 

3 Wort Status. 


Wenn das Medium entfernt werden 
kann, muß das BESCHÄFTIGT-Bit im 
Status wort auf 0 gesetzt werden. 
Diese Funktion muß nur von BLT un¬ 
terstützt werden. Sie dient dazu festzu¬ 
stellen, ob das Medium innerhalb eines 
von dem Blocktreiber bedienten Geräts 


gewechselt werden kann. Als Antwort 
wird das BESCHÄFTIGT-Bit im Sta¬ 
tuswort auf 0 (Medium kann gewech¬ 
selt werden) oder 1 (Medium kann 
nicht gewechselt werden) gesetzt. 

Funktion 16: Ausgabe bis beschäftigt 


Eingangsparameter 
Off. Länge 

2 Byte Funktionsnr. (16) 

14 Zeiger Puffer aus denen die 

Daten, die übertragen 
werden sollen, ent¬ 
nommen werden 
können. 

18 Wort Anzahl der zu schrei¬ 
benden Zeichen 

Rückgabewerte 
Off. Länge 

3 Wort Status 

18 Wort Anzahl der ausgegebe¬ 
nen Zeichen. 


Diese Funktion muß nur von Zeichen¬ 
treibern unterstützt werden. Aufgabe 
der Funktion ist, solange Zeichen auf 
ein Gerät auszugeben, bis dieses mel¬ 
det, daß es keine weiteren Zeichen 
mehr annehmen kann. Dadurch eignet 
sich diese Funktion gut zur Ausgabe 
von Zeichen auf Druckern. 

Als Rückgabewerte werden von dieser 
Funktion, wie immer, der Status und 
die Anzahl der geschriebenen Zeichen 
erwartet. Dieser Wert ist besonders 
wichtig, da es bei dieser Funktion sel¬ 
tener vorkommt, daß sie alle Zeichen 
ausgeben kann. 


PC^ 


Besonderheiten 

Es wurde gesagt, daß DOS über den 
Namen auf die Gerätetreiber zugreift. 
Die Ausnahme ist der Uhr-Treiber. 
Seine einzige Aufgabe ist, Datum und 
Uhrzeit mit DOS auszutauschen. Das 
besondere an diesem Treiber ist. daß er 
nicht wie alle anderen über seinem Na¬ 
men identifiziert wird, sondern da¬ 
durch, daß im Treiber-Attribut das Bit 
3 gesetzt ist. 

IOCTL 


Im Laufe dieser Artikelserie wurde öf¬ 
ter der Begriff IOCTL benutzt, eine 
Funktion von DOS, die über den Inter¬ 
rupt 021H aufgerufen wird. Die Funk¬ 
tionsnummer, die im AL-Register 
übergeben wird, ist 044H. Diese Funk¬ 
tion stellt nun einen ganzen Stapel von 
Unterfunktionen zur Verfügung. Die 
Möglichkeit, über diese Funktion mit 
Gerätetreibern zu kommunizieren, be¬ 
schränkt sich jedoch nur auf Treiber, 
bei denen im Treiberattribut das 
IOCTL-Bit gesetzt ist. 

Grob gesagt läßt sich die IOCTL-Funk- 
tion (IOCTL = Input/Output Control) 
als Funktion zur Treiber-Konfigura¬ 
tion, zur Datenübertragung zum/vom 
Treiber und zur Feststellen des Trei¬ 
ber-Status klassifizieren. 

Die Entwicklung eines Geräte¬ 
treibers 

Das größte Problem bei der Entwick¬ 
lung eines Gerätetreibers ist das De- 
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bugging (Fehlersuche) des neuen Trei¬ 
bers. Da es selten vorkommt, daß ein 
Stück Software, das aus mehr als einer 
Zeile auf Anhieb fehlerfrei funktio¬ 
niert, sollte man dieses Problem nicht 
unterschätzen. Fehler in Gerätetreiber 
machen sich im harmlosesten Fall 
durch aktives Nichtstun des Computers 
mit anschließendem Griff zum Reset- 
Taster bemerkbar, im schlimmsten Fall 
durch radikales Zerstören sämtlicher 
Datenbestände einer Festplatte. 

Da letzteres nur bei Blocktreibern auf- 
treten kann, hier noch einmal die War¬ 
nung: Schreiben Sie selber nur einen 
Blocktreiber, wenn es absolut keine an¬ 
dere Möglichkeit gibt. Ein Fehler in ei¬ 


nem Treiber für die Festplatte kann 
problemlos die Platte “leerfegen“. Ein 
Fehler in einem Uhrentreiber kann Sie 
maximal mit einem neuen Bootvorgang 
und anschließender Fehlersuche im 
Assembler-Listing ärgern. 

Da man auf normalen Wegen kaum 
noch an einen Treiber herankommt, 
der einmal in das DOS eingebunden ist, 
muß man Umwege beschreiten, um 
seine Ziele zu erreichen. Man schreibt 
sich ein Testprogramm, bastelt sich ein 
Interface, das den Treiber genauso auf¬ 
ruft wie es DOS macht, linkt die beiden 
Programme zusammen und probiert al¬ 
les aus. Auch wenn sie eine Festplatte 
in ihrem Rechner haben, empfiehlt es 


sich, Gerätetreiber, die sich noch in der 
Entwicklung befinden, von einer spe¬ 
ziellen Boot-Diskette zu laden. 

Haben Sie einen Fehler in der Initiali¬ 
sierungsroutine des Gerätetreibers, so 
kann der Rechner schon während des 
Bootvorganges stehen bleiben und Sie 
haben keine Möglichkeit mehr, die 
CONFIG.SYS-Datei zu ändern. 

Zum Abschluß liefern wir Ihnen noch 
das Gerüst eines Gerätetreibers. Es 
handelt sich hierbei um ein LEERES 
Gerüst. Die einzelnen Funktionen kön¬ 
nen Sie damit individuell selbst ent¬ 
wickeln. 

(Robert Haas/jf) 


7ltlc Gerüst für Gerätetreiber 
Page 66, 122 

; Assembler: KASM5.0, TASX 1.0 


COOESEGMENT 

ASS'JXE CS:CODE, OS:CODE, ES:CODE, SS:CODE 
0RS0 


nextdev dd -l 


Attribut dw 


( Treiber beginnen Immer bei 0 
; Al3 erstes der Treiöerkopf 
; Zeiger auf der, nächsten 
; Gerätetreiber wird von DOS 
; eingesetzt. 

: liier kommt das Attribut 
; ihres Treibers hin. (2.Teil 
; der Serie) 


stratrout dv OFFSET Strategie ; Adresse der 

; Stretegieroutlne. 


introut dv OFFSET Interrupt 

devname db 

detaptr dd 0 


; Adresse der 
; Interruptroutine. 

; Hier kommt der Karne (tax. 8 
; Zeichen mit Spaces 
; auffüllen) eines 
; Zeichentreibers oder die 
; Anzahl der unterstützten 
; Geräte bei einem 
; Bloektrelberhln (1 Byte, 

; die restlichen 7 Byte mit 7 
: dup (0) auf füllen). 

; Speicher für den Zeiger den 
; DOS der Strategieroutine 
; übergibt. 


; Jetzt folgt eine Tabelle mit den Adressen der 
i einzelnen Funktionen des Treibers. Sie können 
: hierfür natürlich eigene Namen nehmen. 

fur.ct'.or.s 


;Iv 

OFFSET 

funcL.0 

Initialisierung 

dw 

OFFSET 

?ur.c_l 

Medium Test 

dv 

OFFSET 

fucc_2 

Erstelle ß?B 

dv 

OFFSET 

fur.c_3 

Lesen ( I0CTL) 

dv 

OFFSET 

func_X 

Lesen 

dw 

OFFSET 

fur.c_5 

Zeichen Lesen 

dw 

OFFSET 

fur.c_6 

Eingabe Status 

dw 

OFFSET 

:'ur.c_7 

Eingabepuffer löschen 

GW 

OFFSET 

func_8 

Schreiben 

GW 

OFFSET 

func_9 

Verifizieren and 
Schreiben 

dw 

OFFSET 

fcno _10 

Ausgabe Status 

dw 

OFFSET 

func-li 

Ausgabe Puffer lösenon 

dv 

OFFSET 

fu;ic_12 

Schreiben ( IOCT1) 

du 

OFFSEI' 

l’uno_13 

Gerät öffnen 

du 

OFFSET 

func_l4 

Gerät schließen 

du 

OFFSET 

func_l5 

Medium wech3elbar? 

du 

OFFSET 

fune_l6 

Ausgabe bis beschäftigt 


; Hier können Sic Ihre Daten hineinsehrelbcr. 

; Es beginnt die Stratogieroutlne 
; Sie sichert oeri Zeiger in ES:3X und springt sofort 
; in3 CCS zurück. 

Strategie: 

mov word ptr cs: dataptr, bx 
mov Word ptr es: dat aptr + 2, es 
retf 


; Jetzt fol 

gt die Interrupt-Routine. Sie sichert, alle 

; Register 

berechnet die Adresse der Funktion und 

; springt sie indirekt an. Die Funktion erhält in 23:01 
; den Zeiger auf den Datenbl.ock des DOS, Sie muß Ihrer. 

; Status in AX zurüok geben -und dann mit einem NEAR 
; P.etum (retn) zur Interrupt-Routine zurückapringen. 

Interrupt: 



push 

ax 


push 

bx 


push 

cx 


push 

dx 


push 

bp 


push 

di 


push 

si 


tu sh 

ds 


push 

cushf 

GS 


push 

C9 

Fa ,1a sie Irgendwelche Daten 

op 

da 

benötigen. 

Nun ES.-DI mit den Zeiger laden 

es 

di, da¬ 
taptr 


er 

bx, bx 

F'unktionsnr. holen 

ov 

bl, byte 
ptr 



es: [öi-2 ] ; Zeiger in der Sprungtabe_le 



berechnen und dann die Funktion 
anspringer. 

stu 

bx, 1 


call 

hear ptr 
[.Func¬ 
tions + 
bx] 

Nachdem die Fur.Kllon die Arbeit 
gemacht hat, das Statuavort ln 
das Statusfeld bringen alles 

Register restaurieren ur.ö zurück 
zum DOS. Vorsichtshalber den 

Zeiger nochmal laaen 

les 

di, da¬ 
taptr 

Das von der Funktion gelieferte 

Statuswert auf FERTIG setzen und 
ln das Stetusfelö bringen 

ör 

ax, 0100H 


mov 

03: [ciiJJ 


popf 



pop 

es 


pop 

•53 


pop 

si 


pop 

ai 


pop 

bp 


pop 

dx 


pop 

CX 


pop 

bx 


pop 

ax 


; Ab hier sollten Jetzt die einzelner. Funktionen des 

; Treibers folgen. 


CODE 

ENDS 



END 
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Kleinanzeigen—i 


Biete Hardware 


SCHNEIDER PCW 8256 JOYCE MIT 
SOFTWARE u. LITERATUR ZU VERKAU¬ 
FEN 450,00 DM, R, BÄRENZ, SÜDLICHE 
RINGSTR, 195,6070 LANGEN 
TEL. 061 03/24687 


JOYCE 8512 + LW 5 1/4 + RS 232 mit 
Echtzeituhr + Bücher + umfass, 
Software (250 Disk.) + PC Amst. 

Int, 86 - 90 incl. Databoxen 
gegen Gebot (Software etc. 
auch einzeln) Tel: 02227/2511 


CPC 6128 mit Farbmonitor + Soft¬ 
ware, VB 650, - DM, Chr. Gursch 
Schwanh. Str. 58,6140 Bensheim 
Tel, 062 51/6 41 08 


51/4" + 3" -2TLW + 51/4"Disk. 08421/4828 


CPC 6128, GT 65, DMP 2000, 5,25"- 
Laufwerk, Mouse, viel Originalsoft, 
Literatur (60 Zeitschr., Bücher) u. 
div. Zubehör a. Anfr. 

02541/4577 


PC1512SD, 20MBHD, COLOR, DOS + 
GEM, NUR 6M GENUTZT, VB 1100, 
TEL 07531/73953 AB 20.00 UHR 


JOYCE PLUS mit viel Zubehör 
für 700 DM zu verk. 02364-2572 


EURO-PC incl. SPEICHERERW. 640KB 
CGA-Mon., V20CPU U. Mouse 999 DM 
W. KNOLL, SCHULSTR. 25,4234 ALPEN, 
TEL. 02802/2857 -Systemwechsel- 


JOYCE 8256 KOMPLETT M. LITERAT. 
UND CA. 20 LEERDISKETTEN 
VB 650, - 
TEL 02203/1 2607 


JOYCE PCW 8256, 512 KB RAM, DIV. 
ZUBEHÖR - SPIELE ZU VERKAUFEN 
ANGEBOT GEGEN PORTO, G. PIETSCH 
LINDENWEG 30,4934 HORN - BM 1 


JOYCE DRUCKERKOPF 061 28-42347 


Verk. 50 3"-Discs gebr., leer, 
VHB 170,-, 072 51/1 8754 


Suche Hardware 


Suche gebr. CPC6128 o. Monitor 
Tgl. 06371-1 4635 ab 20 Uhr 


Disk-Laufwerk f, CPC464 
Tel. 04292/2429, Till Witt 


Biete Software 


"Machen Sie Ihren Computer zu Gold!" 

Ungewöhnlich selbständig machen 
mit neuen lukrativen Unternehmens¬ 
konzepten im Bereich Computer- 
Persönlichkeits-Analysen. Gratis¬ 
info AM2 anfordern bei PROFImade, 
c/o bep, Dorther Weg 14, 

5449 Leiningen/Lamscheid 

Tel 0 67 46/8219 Fax 0 67 46/82 76 G 


• CPC-PD SPIELE + ANWENDERPRG. • 
LISTE 100 PF bei: Peter Breuker, 
Rektenstr. 10,4930 Detmold 1 


CPC 464: VERKAUFE VIELE ORIGI¬ 
NALSPIELE AUF CASS: LISTE GEGEN 
1 DM BEI: W. DRUM, RIESENSTR. 34, 
6604 BREBACH, AUCH GUTE PD SOFT 


* Wirtschaftliche Programme * 

* für die Arztpraxis auf * 

* dem Schneider CPC, Joyce, PC * 

* Fa. EFFEKTA, Am Wiggert 9c * 

*4500 Osnabrück, 0541/442416 G 


** Dias ordnen mit dem Computer ** 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W, Grotkasten, 

Birnenweg 6,7060 Schorndorf 
Tel. 071 81/42846 G 


CPC-Originalsp. (K/D) 08421/4828 


Anwenderprogramme und Spiele. 
Hotel-Reservierungs- und Buchungs¬ 
system. Info gg. Rückporto 
G. Hust, Deichstr. 60,2876 Berne 


PD-SOFTWARE - ,65 bis 2, - 
Für IBM/Kompat. Kat-Disk, gratis. 

M. Karbach, Remscheider Str. 18 
5650 Solingen 1 G 


ACHTUNG II ERWACHSENE 

12 Disk. 5 1/4 oder 3 1/2 mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 40, - VS/Bar. M. Karbach 
Remscheider Str. 18, 5650 Solingen G 


■ CPC & JOYCE PUBLIC DOMAIN ■ 

• Ein Info ist für 2x1 OOPf erhältlich • 

■ PDI, Pf 1118, D-6464 LinsengerichtG 


JOYCE-Original-Software: Tabkalk 
(DMV-Vol. VI)/Prompt/Multi-Data- 
base + Toolkit/Joyce-Sonderheft 
2/3/4 jeweils Disk. 1 / Noten + Kalen- 
derprogramm/Litbox2/gesamt: 100 DM/ 
einzeln: 15 DM/Buch: DBase-Kompen- 
dium zu 60DM/ Vater, Lärchenweg 5, 
8642 Ludwigsstadt 2 


Verschiedenes 


upLink bringt Daten u. Progr. vom CPC 
u. JOYCE (m. CPS 8256) direkt zum 
PC/XT/AT. Transfer über die parallelen 
Schnittstellen. Komplett 198 DM - NN. 
Info./Bestellung: CONCEPTION GmbH, 
Hubertusweg 14, 2000 Hamburg 61, 
Tel.: 0 40/58 45 03, Fax. 0 40/58 73 52 G 


SOFTWARE: STAR-WRITER 3.02, DM 
270 - FARBBÄNDER: JOYCE DM 12 
DMP 2000 DM 10,50 - ETIKETTEN: 

400 ST. 89x36 DM 7,50 U.V.A. 

LISTE ANFORDERN: WALTER KUHN, 
EDV-ZUBEHÖR, HESSENSTR.7,6340 
DILLENBURG 2, TEL. 02771/32688 G 


Suche KONTAKT zu and. CPC-User; 
Raum Moers-Duisburg; 
100%-Antwort! 

02841 51505; Jörn verlangen 


PC INTERNATIONAL 3/85-6/89 + 
Sonderh. VB Tel: 021 01/80280 


Tausch 


CPC-SPIELE, TEL.: 04743/5769 


Wiedereinsteiger sucht für CPC 
neue Tauschpartner. Bitte 
meldet euch bei Dieter Beck, 
Hengasse 10,7488 Stetten akM 


Club 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr. 5,5600 Wuppertal 2 


• • • EINMALIGE GELEGENHEIT! • • • 

Für alle Interessierten an unserem 
Club bieten wir unsere 
Clubztschr. zum Probelesen an! 
Kostaquanta: 4, - + 1,70 DM VSK. 
Bezahlung per V-Scheck, Bar oda 
Überweisung (PGA Köln 107253509, 
BLZ 37010050, Empf.: Behrend 
Verw. Zw.: Probeex. POWER). An¬ 
schrift: CPC-User-Club UNICORN 
Im Vogelsang 17, 5000 Köln 50 


Letzte Neuigkeit: UNICORN und 
User-Club Colonia sind jetzt 1 
Club! Es bleiben jedoch beide 
Adressen für Probleme usw. Info¬ 
material nur beim UNICORN Köln, 
Im Vogelsang 17, 5000 Köln 50, 

(2,- DM in Briefm. bitte beilegen!). 


**»***«#*****»****#*#****«*»*** 

PCW-JOYCE USER GROUP in Styria 
******************************* 

Kostenlose Info, Beratung gegen 
Rückporto, eigene PD-Disketten 
von JOYCEr für JOYCEr. Kontakt¬ 
adresse: JOYCE USER GROUP, c/o 
H. MOSCHITZ, FACH 96, A-8041 GRAZ 


PC-1512/1640-Anwender! 

Werden auch Sie Mitglied in 
unserem USER-CLUB. Info gg. Rück¬ 
porto von R. Knorre, Postfach 
2001 02, 5600 Wuppertal 2 
Auch für DDR-User interessant! 


CLUBECKE 

Tips & Tricks, PD-Programme und mehr, 
weitere Informationen gegen drei 60-Pf- 
Briefmarken bei: 

P.D.U.G. 

Postfach 1118 
6464 Altenhaßlau 


Konvertierungsservice 

Bieten Konvertierung von AMIGA, 

ATARI ST,Apple maclntosh, CPC, 

IBM und PCW an. 

Stichwort 'Yellow Cab' 

Ebenfalls erhältlich ist PD für CPC 
und PCW. Sämtliche PD-Bibliotheken 
stehen zur Verfügung. 
Gesamtverzeichnis und Info gegen 
60 PF Rückporto bei: 

PDUG 

Postfach 1118 
6464 Linsengericht 


USER-CLUB für Amstrad/Schneider 
PC 1640/1512-Anwender sucht noch 
Mitglieder. Informations- und Erfahrungs¬ 
austausch stehen an erster Stelle. 

Info kostenlos bei Willy Stern, 
Kennedystr. 38, 8039 Puchheim. 
Anfragen auch unter BTX-Nr, 
0898002545, es wird gleich geant¬ 
wortet. 


Das ist Ihre 
Chance... 

Schon eine Kleinan¬ 
zeige bringt oftmals 
großen Erfolg und 
hilft, neue Kontakte 
zu knüpfen. 

Nutzen Sie unser 
Angebot und profi¬ 
tieren Sie von der 
Tatsache, daß unse¬ 
re Zeitschrift 

»PC Amstrad« 

jeden Monat von 
zigtausend Compu¬ 
ter-Interessierten 
gelesen wird. 

Möchten Sie etwas 
verkaufen, tauschen, 
oder suchen Sie das 
»Tüpfelchen auf dem 
i« - dann sollten Sie 
eine Karte ausfüllen 
und an unseren Ver¬ 
lag absenden. 

Ihre Annonce er¬ 
scheint dann in der 
nächsterreichbaren 
Ausgabe. 

Wir möchten aus¬ 
drücklich darauf hin- 
weisen, daß wir kei¬ 
ne Anzeigen veröf¬ 
fentlichen, aus de¬ 
nen ersichtlich ist, 
daß es sich hierbei 
um Veräußerungen 
von Raubkopien 
handelt. 

Des weiteren ma¬ 
chen wir darauf auf¬ 
merksam, daß indi¬ 
zierte Computer¬ 
spiele nicht in Form 
von Anzeigen be¬ 
worben werden 
dürfen. 
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Schau mir in die Augen, PC 

DFI-Handyscanner HS 3000 plus 

Leistungsfähige DTP-Programme ermöglichen die Gestaltung ansprechen¬ 
der Texte. Aber hei all dem schwarzen Text auf weißem Grund fehlt immer 
etwas Salz in der Suppe. Hier eine Illustration statt langwieriger Erklärung, 
dort ein Bild zur Auflockerung, doch woher die Bilder nehmen, wenn nicht 
stehlen? Versuchen Sie es doch mal mit “Bitnapping“ mit Hilfe eines 
Handscanners! 


Zum Lieferumfang des DFI-Handy- 
scanners HS 3000 plus gehört natürlich 
der Handyscanner inklusive zugehöri¬ 
ger kurzer Steckkarte für einen norma¬ 
len Steckplatz. Der Scanner ist mittels 
Jumper adressierbar. Zur mitgeliefer¬ 
ten Software zählt auch die Scanner- 
Software sowie das Grafikprogramm 
PC Paintbrush. 

Die Auflösung des Scanners ist von 
100 bis 400 dpi einstellbar. Dargestellt 
werden können 32 Graustufen in drei 


verschiedenen Halbtonrasterungen 
oder reines Schwarzweiß für Strich¬ 
zeichnungen oder Texteinlesen zur 
Weiterbearbeitung in OCR-Program- 
men. Die maximale Scan-Breite be¬ 
trägt 105 mm. 

Sämtliche Bedienungselemente sind 
griffgünstig am Gehäuse angeordnet. 
Ein großes Fenster gestattet durch das 
gelbgrüne Licht, welches während des 
Scan-Vorgangs leuchtet, die exakte 
Plazierung des Scanners auf der Vorla¬ 


ge, und eine LED gibt eine optische 
Kontrolle über die Scan-Geschwindig¬ 
keit: Fängt sie an zu blinken, wird das 
Gerät zu schnell bewegt, und man kann 
nicht mehr mit zufriedenstellenden Er¬ 
gebnissen rechnen. Das Erlöschen der 
LED bedeutet, daß der Scan-Vorgang 
abgeschlossen wurde. Diese Kontrolle 
erleichtert das Arbeiten mit dem Gerät 
sehr, da die Scan-Geschwindigkeit ab¬ 
hängig von der eingestellten Auflösung 
ist. 

Anwenderfreundliche 

Installation 

Das Handbuch ist zwar in Englisch, er¬ 
laubt jedoch eine problemlose Installa¬ 
tion der Hardware, da es verständlich 
geschrieben wurde. Die Installation 
der Software gestaltet sich ebenso ein¬ 
fach, da sämtliche Dateien inklusive 
der Verzeichnisse der Diskette einfach 
auf die Festplatte übertragen werden. 
Ruft man das Hauptprogramm auf. so 
erscheint zunächst ein Menü, in dem 
man die angeschlossene Grafikkarte 
(HGC, CGA, EGA oder VGA bzw. 
MCGA) auswählt. Anschließend mel¬ 
det sich das Hauptmenü mit einer Be¬ 
reitschaftsmeldung. Will man nun ein 
Bild einscannen, so wird die aktuelle 
Auflösung des Scanners angezeigt. So¬ 
mit hat man die Möglichkeit, jetzt noch 
Einstellungen am Gerät vorzunehmen. 
Während des Scannens wird die maxi¬ 
male Scan-Geschwindigkeit angezeigt. 
Beendet wird der Vorgang durch einen 
vollen Puffer oder durch den Druck auf 
eine beliebige Taste. 

Der Bildschirm ist in drei Sektionen 
gegliedert. Der Arbeitsbereich besteht 
aus einer vergrößerten Darstellung des 
Bilds, dessen Ausschnitt man in der 
Gesamtdarstellung am rechten Bild¬ 
schirmrand bestimmen kann. Darüber 
befindet sich die Menüleiste. Die Be¬ 
fehle kann man entweder mit dem 
Mauszeiger anklicken oder über die 
Tastatur eingeben. Alle möglichen 
Operationen mit Ausnahme des pixel¬ 
weisen Editierens des Bilds sind über 
die Tastatur ausführbar. Zum Abspei¬ 
chern eines Bilds ist mit Hilfe der Cut- 
Funktion ein Ausschnitt zu bestimmen, 
der auch das ganze Bild beinhalten 
kann. Ist dies geschehen, stehen fünf 
verschiedene Formate zur Verfügung: 
MS Windows, GEM, Dr. Halo, PC 
Paintbrush sowie das TIFF-Format. 
Das gescannte Bild kann dabei entwe¬ 
der im Original oder aber um 90 Grad 
verschoben abgespeichert werden. 
Diese Formate können auch zum Nach¬ 
bearbeiten eingelesen werden, sofern 
die Bilder nicht mehr Speicher benöti¬ 
gen als noch zur Verfügung steht. 
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Weiterhin bietet die mitgelieferte Soft¬ 
ware die Möglichkeit, gescannte Bilder 
in selbstgeschriebene Programme ein¬ 
binden zu können. Hierzu werden ent¬ 
sprechende Routinen in Unterverzeich¬ 
nisse kopiert, die den Namen der je¬ 
weiligen Programmiersprache tragen. 
Der Scanner läßt sich durch die drei 
Walzen (eine breite vorn, zwei schmale 
hinten) präzise über die Vorlagen be¬ 
wegen. Die Form des Geräts gestattet 
ermüdungsfreies Arbeiten, ohne daß 
man einen Krampf in Arm oder Hand 
riskiert. Führt man das Gerät mit bei¬ 
den Händen, so können auch größere 
Bilder ohne Verzerrungen eingescannt 
werden. Hierbei ist darauf zu achten, 
daß die Vorlage nicht verrutscht. Allzu 
großen Druck sollte man allerdings auf 
das Gerät nicht ausiiben, da es dann 
leicht “kleben“ kann und es somit 
zwangsläufig zu einer unruhigen Füh¬ 
rung und damit Verzerrungen kommt. 
Bei der Wahl der Vorlagen kann man 
schon den ersten Schritt zum erfolgrei¬ 
chen Umsetzen tun, denn es liegt in der 
Natur der Scanner, daß sie sich mit den 
Farben Rot und Blau etwas schwertun. 
Das bedeutet, daß ein sehr kräftiges 
Rot leicht in Schwarz “absaufen“ 
kann, während ein helles Blau fast 
Weiß erscheint. Deshalb werden diese 
beiden Farben nicht in ihrer natürli¬ 
chen Charakteristik ausgegeben, son¬ 
dern entsprechend aufgehellt bezie¬ 
hungsweise nachgedunkelt. Dadurch 
kann es nun aber passieren, daß zwi¬ 
schen Rot und Blau kein Unterschied 
im Bild mehr besteht, was in keinster 
Weise erwünscht ist. Auch der DFI- 
Scanner kennt dieses Problem. Des¬ 
halb sollte man Bildvorlagen mit kräfti¬ 
gen Rot- und Blautönen - sofern die 
Möglichkeit dazu gegeben ist - zu¬ 
nächst fotokopieren, um eine optimale 
Vorlage zu erhalten, die man dann ein¬ 
scannt. Doch ergibt sich dieser Um¬ 
stand eigentlich nur dann, wenn man 
mit Hercules-Grafik arbeitet, welche 
lediglich Schwarz und Weiß erkennt. 
Eine Auflösung in 32 Graustufen bei 
hochauflösenden Farbgrafikkarten ver¬ 
ringert diese Problematik auf ein Mi¬ 
nimum. 

Dank der Helligkeitsregelung ist es 
auch möglich, sowohl sehr helle als 
auch etwas dunkle Bilder mit zufrie¬ 
denstellenden Ergebnissen einzuscan¬ 
nen. Bei hoffnungslos unterbelichteten 
Bildern allerdings muß auch der beste 
Scanner versagen, wie im Übrigen 
auch matte Fotos das Ergebnis beein¬ 
trächtigen können. Daher kann man 
auch nicht problemlos aus Zeitschrif¬ 
ten oder Magazinen Bilder abscannen 
- abgesehen von rechtlichen Proble¬ 
men sind die Drucke naturgemäß grö¬ 
ber als es dem Auge erscheint, und 


selbst die feinste Körnung der Bilder er¬ 
scheint bei 400 dpi kieselsteingroß. Zu¬ 
dem sind diese Bilder generell dunkler 
als zum Beispiel Fotos. 

Wie sauber auch immer die eingescann¬ 
ten Bilder sein mögen, man 


kommt kaum um eine Nachbearbeitung 
herum, wenn man präsentationsreife 
Grafiken haben will. Umrißlinien kön¬ 
nen vor einem unruhigen Hintergrund 
verschwinden, so daß der Vordergrund 
nicht mehr klar zu definieren ist. 

Hier ist es dann von Vorteil, wenn man 
über zeichnerisches Talent verfügt, denn 
solche Nachbearbeitungen können mit¬ 
unter Dimensionen annehmen, die fast 
an ein Neuzeichnen herankommen. 

Stiefkind OCR — Probleme 
mit der Texterkennu ng 

Außer der Nachbearbeitung von Fremd¬ 
grafiken steht das Thema Texterken¬ 


nung in engem Zusammenhang mit 
Scannern. Das Einlesen von gedrucktem 
oder handgeschriebenem Gut und dessen 
Verarbeitung in für Textverarbeitung 
lesbare Formate ist dabei weniger ein 
Problem der Scanner als ein Problem 


der mitgelieferten Software. In diesem 
Punkt waren beim Handyscanner wenig 
Erfolge zu verbuchen. Zwar wurde eine 
auf die Hardware abgestimmte Software 
zur Texterkennung getestet, doch stell¬ 
ten sich selbst bei den im Handbuch be¬ 
findlichen Demoschriften die gewünsch¬ 
ten Erfolge nicht ein. Es scheint, als ob 
die Software hier noch einiges an Rück¬ 
stand aufzuholen hat. Die "Hoffnungen 
auf diesem Gebiet wachsen dann auch 
mit der Entwicklung von Programmen, 
die auf neuronalen Netzen basieren. Die¬ 
se KI-Technik, die sich in der Rekon¬ 
struktion von Mustern bewährt hat, sollte 
hier dann die nötigen Erfolge bringen. 

(Michael Grebenstein/jf) 
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Das Ergebnis des 
Scannens auf 
dem Bildschirm 


Die nachbearbeitete 
Grafik 

als Ausdruck L 
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Von Ast zu Ast 

Der Verzeichnis-Manager 

Im Zeitalter der grafischen Benutzeroberflächen werden immer wieder 
Stimmen laut, die zum Ausdruck geben, daß sie der bunten Icons müde 
werden. Es gibt sogar Personen, die öffentlich für das MS-DOS-Prompt 
Stellung beziehen. Eine Renaissance der Command-Line scheint angebrochen. 


Daß in dieser Zeit die Augen besonders 
kritisch auf die MS-DOS-Ebene 
blicken, ist dabei allerdings nicht ver¬ 
wunderlich, denn bei aller Liebe zur 
spartanischen Eingabe der Befehle sind 
bestimmte Dienste doch sehr mühsam 
zu erledigen und werden deshalb nur 
ungern ausgeführt. 

Eine dieser unliebsamen Funktionen ist 
der “Change Directory “-Befehl, kurz 
CD, der bei MS-DOS das Wechseln 
der Verzeichnisse bewirkt. Wenn der 
Verzeichnisbaum der Festplatte durch 
strukturiertes Erstellen der Unterver¬ 
zeichnisse ins Unermeßliche wächst, 
wird dem Anwender eine erhebliche 
Tipparbeit zugemutet. Ein Beispiel: 
Herr F. aus H. besitzt einen Computer 
mit Festplatte. Im Laufe der Zeit sam¬ 
melten sich die Daten, die er privat und 
für seine kleine Firma anlegen mußte, 
in starkem Maße an. Damit er seinen 
Briefverkehr an drei bekannte Damen 
separat verwalten kann, hat er auf sei¬ 
ner Festplatte Verzeichnisse angelegt. 
Wenn er Fräulein Beate eine Einladung 
zukommen läßt, muß er folgende Zeile 
eintippen, um das Verzeichnis mit den 
richtigen Dateien anzuwählen: 

CD Textvera \ context \ daten \ fIrma 
\ beate 


Viel Zeit könnte er sparen, wenn das 
Betriebssystem einen Befehl zur Verfü¬ 
gung stellte, der bei Angabe von 
< beate > oder gar <bea> direkt in 
das betreffende Unterverzeichnis 
springen würde. 

Da macht aber MS-DOS nicht mehr 
mit und läßt den Anwender Taste um 
Taste eintippen. 

Das braucht nicht sein, wenn man sich 
der Dienste des kleinen Utilities XCD 
bedient. 


Um XCD jederzeit von allen Verzeich¬ 
nissen aufrufen zu können, empfiehlt 
es sich, das Programm in ein Verzeich¬ 
nis zu kopieren, auf das die Pfadangabe 
in der AUTOEXEC.BAT zeigt. 

Die Funktionen von XCD 

XCD vereinigt eine ganze Reihe von 
Funktionen in sich. Die wichtigste ist 
der komfortable Verzeichniswechsel. 
Rufen Sie XCD mit einem Verzeich¬ 
nisnamen auf, so wechselt das Pro¬ 
gramm auf der Stelle in das ihm vorge¬ 
gebene Verzeichnis. Dabei ist es 
gleichgültig, in welchem Verzeichnis 
auf der Festplatte Sie sich momentan 
befinden. 

Sollten Sie sich bei der Eingabe des 
Verzeichnisnamens vertippen, so sucht 
XCD nach einem ähnlich lautenden 
Verzeichnis und wechselt dort hinein. 
Das heißt, daß Sie bei längeren Namen 
nur die ersten Buchstaben einzutippen 
haben, was natürlich weitere Arbeit 
spart. 

Wird XCD anstelle eines Verzeichnis¬ 
namens mit dem Parameter <?> auf¬ 
gerufen, so erscheint ein ausführliches 
Hilfsmenü, das alle Funktionen des 
Programms genau erklärt. 

Mit dem Parameter <A> wird der 
Verzeichnisbaum aktualisiert. Das ist 
beispielsweise dann notwendig, wenn 
außerhalb von XCD neue Verzeichnis¬ 
se angelegt oder bestehende gelöscht 
wurden. 

Eine vierte Möglichkeit besteht darin. 
XCD ohne jegliche Parameter zu star¬ 
ten. In diesem Fall erscheint ein Ver¬ 
zeichnisbaum, in dem mittels Cursor¬ 
taste “geblättert“ werden kann. Ein 
Leuchtbalken markiert stets das mo¬ 
mentan angewählte Verzeichnis. Ne¬ 
ben der Möglichkeit, die Verzeichnisse 
mit den Cursor-Tasten anzuwählen, 
beherrscht XCD eine sogenannte 
“Speed Search“-Option. Sie tippen 


Der Verzeichnisbaum 
einer Festplatte, 
aus ge geben von XCD 


Don 06.0S.1990 16:0 
EA 

>cd texte 

Don 06.09.1998 16:0 

£:nTEXTE 

>c:xcd 

Befehl oder Dateina 

Don 06.09.1990 16:0 
E:\TEXTE 
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Don 06.09.1990 16: 
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XCD ersetz den [lustiefehI <i:hdirl «tut wird oufgerufen 

1. mit l'iiriiBiftrr<iiiq.ihr 

1.1 xcd «Jerze ich ui s> Cfliiguhe einer lilhr reifht 

1.2 xcd ? noBentane Hilfe 

1.3 xcd fi Verzeichnisdatei laci 

2. ohne farameterangflhe 

iMhi.-i dienen folgende Tasten 7.111 Wohl de: Pfade 

Home,End ,Shif ttasten .Pgll|i,Pi|Bu.Cur ;nr in: len.n ,n -•/ 
CH bestätigt die Wahl 
ESC bricht Programm uh 
Fl oomentum: Hilfe 
F2 zeigt Pirektorij 
F3 druckt Unteruerzt: ichnisl ist«: 

F4 Unieruerzciclmis einrichten 
F5 Unteruerzeiclims lii i.heu 
F6 Unteruerzcichnis nmhcnenncn 
FV Unteruerzfichnisattrihut verändern 
F10 erneuert die Verzeichnixdiitei 

XCD V2.2 <01990 by Marc Kronherg CD 11SZ) 


Das Hilfsfenster ist 
jederzeit mit <FI> 
Zit aktivieren 


hierbei einen beliebigen Buchstaben 
ein, und XCD wechselt in das erste 
Verzeichnis, dessen Name mit diesem 
Buchstaben beginnt. Bei weiteren Ein¬ 
gaben versucht das Programm, Unter¬ 
verzeichnisnamen zu finden, die genau 
mit der eingegebenen Buchstabenfolge 
beginnen. So ist ein bequemes Finden 
bekannter Verzeichnisnamen garan¬ 
tiert. 

Man kann jederzeit das Programm 
durch Drücken der < ENTER >-Taste 
verlassen, wobei automatisch in das 
Verzeichnis gewechselt wird, auf dem 
der Leuchtbalken positioniert war. 
Außerdem sind die Funktionstasten mit 
nützlichen Befehlen belegt, die nun im 
einzelnen erläutert werden sollen. Alle 
nun beschriebenen Funktionen gelten 
natürlich nur dann, wenn Sie sich in¬ 
nerhalb des Programms befinden. 

Funktionstastenbelegung 
von XCD 

<ENTER> 

- Das Programm wird veranlaßt, in 
das aktuelle Verzeichnis zu wechseln. 
Das aktuelle Verzeichnis ist das, was 
unter dem Leuchtbalken zu sehen ist. 

<ESC> 

- Das Programm wird ohne Beeinflus¬ 
sung der Verzeichnisse abgebrochen. 

<F1 > 

- Ein Bildschirm, der die Tastenbele¬ 
gung und die Funktionen von XCD er¬ 
klärt, erscheint auf dem Monitor. 

<F2> 

- Alle Dateien des Verzeichnisses, 
das sich unter dem Leuchtbalken befin¬ 
det. werden angezeigt. Die verschiede¬ 
nen Farben haben dabei folgende Be¬ 
deutung: 


Blau — EXE-Dateien 
Lila — COM-Datcien 
Rot — BAT-Dateien # 

Grün — alle anderen 

<F3 > 

— Die Unterverzeichnis-Liste wird als 
Baumstruktur auf dem Drucker ausge¬ 
geben. 

<F4> 

— Ein neues Unterverzeichnis kann 
eingerichtet werden. Dabei gilt das 
momentan unter dem Leuchtbalken be¬ 
findliche Verzeichnis als “Mutter-Ver¬ 
zeichnis“ des neu einzurichtenden. 

<F5> 

— Das unter dem Leuchtbalken befind¬ 
liche Verzeichnis wird gelöscht. Diese 
Funktion wird nur dann ausgeführt, 
wenn sich keine Datei im gewählten 
Unterverzeichnis befindet. 

<F6> 

— Diese Funktion bewirkt, daß das 
momentan unter dem Leuchtbalken be¬ 
findliche Unterverzeichnis umbenannt 
werden kann. Sie müssen lediglich ei¬ 
nen neuen Namen eingehen und die 
Ausführung der Funktion bestätigen. 

<F7> 

— Mit dieser Funktion können Attribu¬ 
te von Unterverzeichnissen geändert 
werden. Zur Auswahl stehen Hidden, 
System, Archive, Read only. Wird bei¬ 
spielsweise das Attribut Hidden ge¬ 
setzt, so erscheint das Unterverzeich¬ 
nis nicht mehr, wenn man auf der MS- 
DOS-Ebene das Directory aufruft. 

XCD selbst kümmert sich um solche 
Einschränkungen nicht. Bei Aufruf 
dieser Funktion werden außerdem die 
gesetzten Attribute des Unterverzeich¬ 
nisses angegeben. 


Diskettenlaufwerke 


• Anschlußfertiq 1 Sie brau¬ 
chen wirklich nichts mehr. 

• Qualitätslaufwerke von TEAC 

• 2*80 Spuren, 1 MegaByte un¬ 
formatierte Speicherkapazität 

• 1 Jahr Garantie I 


JOYCE 

3 . 5 " 249 .- 

5 . 25 " 328 .- 


Alle Diskettenlaufwerke sind ohne tech¬ 
nische Kentnisse leicht als Zweitlaufwer¬ 
ke an Ihren JOYCE anzuschließen. Sie 
funktionieren auch mit einer Speicherer¬ 
weiterung problemlos. Die Kapazität be¬ 
trägt 1 MB unformatiert und 726 KB 
formatiert. Die 5.25" Stationen verfügen 
über ein eigenes Netzteil (VDE) und eine 
40/80 Track Umschaltung (notwendig für 
MsCopy). 

Für den Betrieb mit unseren 5.25" Lauf¬ 
werken wurde das Programm MsCopy 
entwickelt. Es ermöglicht den Datenaus¬ 
tausch zwischen Ihrem JOYCE und ei¬ 
nem PC. Neu : Jetzt auch für 3.5" 

MsCopy 49.- 


CPC 

3 . 5 " 279 .- 

5 . 25 " 328 .- 


Zweitlaufwerke mit 830 KB formatierter 
Kapazität unter CP/M, 2 x 360 KB unter 
Amsdos bzw. BASIC. Alle Laufwerke 
werden serienmäßig mit einem Seiten¬ 
umschalter ausgerüstet, so daß beide 
Diskettenseiten genutzt werden können. 
Unter CP/M geschieht die Umschaltung 
automatisch. Im Lieferumfang sind die 
Programme DiskPara und MsCopy 
enthalten. 

DiskPara 

für alle CPC’s 79.- 

Programm zur Erhöhung der Disketten¬ 
kapazität. Ermöglicht je nach Laufwerk¬ 
styp Kapazitäten bis 830 KB unter CP/M. 
Vollkompatibel läuft z.B. mit: 

Turbo Pascal, DBase und Wordstar. 
Erfolgreich getestet in Schneider Aktiv 
5/87, c't 5/87, PC Int. 6/87, CPC 4/87, 
Happy Comp. 4/87, M&T Sonderheft 

Frank Strauß Elektronik 

Schmiedstr. 11 6750 Kaiserslautern 

Tel.: 0631 / 67096-98 Fax : 60697 
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<F10> 

— Diese Funktion hat die gleiche Aus¬ 
wirkungen wie der Programmaufruf 
von XCD mit dem Parameter “A“. 

Sie erneuert die Verzeichnisstruktur 
des Directories. Dies ist deshalb not¬ 
wendig, weil XCD aus verarbeitungs¬ 
technischen Gründen eine temporäre 
Datei mit den Verzeichnisbaum-Infor¬ 
mationen ablegt. 

Sie können die Datei im übrigen nicht 
sehen, da sie als versteckt deklariert 
wird. 

Was XCD nicht kann, das ist das Lö¬ 
schen eines kompletten Verzeichnis¬ 
baums, ohne Rücksicht darauf, ob sich 
Dateien in einem oder mehreren Ver¬ 
zeichnissen befinden. Um diesen 


Zweck zu erfüllen, wurde XDEL ent¬ 
wickelt. XDEL ist eine ebenso simple 
wie gefährliche Funktion. 


Auch Löschen will gelernt sein 

Der Vorteil dieses Programms liegt 
darin verankert, daß es möglich wird, 
ganze Verzeichnisstrukturen in einem 
Befehl zu löschen. Dazu geht man wie 
folgt vor. Zuerst muß wie bei XCD die 
Empfehlung ausgesprochen werden, 
das Programm in einem Verzeichnis 
anzulegen, auf das ein Pfad zeigt. So ist 
auch hier gewährleistet, daß man das 
Programm aus jedem beliebigen Ver- 
zeichnis starten kann. XDEL ermittelt 


zuerst den Verzeichnisbaum, der das 
aktuelle Verzeichnis als “Mutter-Di¬ 
rectory“ besitzt. 

Dieser Baum wird auf dem Monitor an¬ 
gegeben, und das Programm fragt, ob 
dieser Baum wirklich gelöscht werden 
soll. Drücken Sie nun auf die <J>- 
Taste, so gestatten Sie XDEL das Ver¬ 
nichten des angezeiglen Baums mit der 
Konsequenz, daß alle Dateien, die sich 
darin befinden, dem Löschvorgang 
zum Opfer fallen. 

Dafür bekommen Sie eine Funktion, 
die sehr viel Arbeit spart, wenn einmal 
brachliegende “Bäume“ von der Platte 
gelöscht werden sollen. 

(Marc Kronberg/jf) 


Copyright: Marc Kronberg. Alle Rechte Vorbehalten. 


Programm. : 

Version. : 

Datum. : 

Verwendung.... : 


Autor 


XCD 

2.21 

20.08.1990 

enduser-tool 

ersetzt die Ödsbefehle (chdir), SpeedSearch 
(mkdir) 

(rmdir) 

(dir) 

zuaätzi. Option: Verzeichnieattribut 
verändern 

Marc Kronberg 

Klea-Brandström-Str.7 

3452 Bodenworder 


) 

} 

) 

) 

) 

> 

) 

) 

) 

) 

) 

> 

) 

) 

) 

) 

) 


procedure hotkey; ( prUft, ob folgende Tosten gedruckt sind und ) 
( ändert dementsprechend die global definierten ) 
( Variablen: shiftR, shiftl,, A1t,NumLock, 
j CapsLock.ScroliLock,Control,Ins ) 


var b 
begin 
b: = 
i £ 
if 
lf 
if 
lf 
if 
if 
if 
end; 


: byte; 

mem[$0000:$04!7]; 

(b and 128)*128 then InB:=true 
(b and 64)'64 then CopsLock:=true 
(b and 32) -32 then NumLock:»true 
(b and 16 ) = 1 6 then Scrol lLock :*true 

(b and 8)=B then Alt:*true 

(b and 4)=4 then Control: -true 

(b and 2) —2 then shiftL:=true 

(b and 1)-1 then shiftR:"true 


eise rns:«£nlHe; 
eise CapBLock:=false; 
oIbo NumLock:=faise; 
eise ScrollLock:*falso; 
eise Alt:“false; 
elae Control:=false; 
eise shi£tL:=£alse; 
eise shiftR:»£alse; 


Program XCD; 

(SI-) 

use» dos, crt, prlnter; 


le 

w 

75; 

( 

Scancodetabelle 

ri 

= 

77; 


1 •• 

up 

= 

72; 


( •• 

dn 

• 

80; 


1 •• 

esc 


27; 


( 

er 


13; 


( -■ 

bap 

= 

8; 



Home 

r» 

71; 


( 

end 

» 

79; 


( •• 

PgUp 


73; 


( •• 

PgDn 

« 

81; 


( •• 

fi 

= 

59; 


< •• 

f 2 

* 

60; 


( •• 

£3 

■ 

61; 


1 •• 

14 

« 

62; 


( •• 

f 5 

= 

63; 


( • • 

f 6 

= 

64; 


< .. 

f 7 


65; 


I •• 

£10 

* 

68; 


( 




( Farbwerte 


beli 


liqhtgray; 

{ Hilfsfenstcr , 

Hintergrund 

fch 

• 

black; 

{ Hilfsfenster , 

Text 

bef 


lightgray; 

( Hauptfenster , 

Hintergrund 

f cf 

» 

black; 

( Hauptfenster , 

Text 

beb 

* 

black; 

( inv. Balken, 

Hintergrund 

feb 


lightred; 

( inv. Balken, 

Text 

fccat 

= 

green; 

( Katalogfenster 

, Hintergrund 

bccat 

3 

black; 

( KataiogfenBter 

, Text 

f ebat 

3 

lightred; 

{ Katalogfenster 

, bat-Datei 

f cexe 

« 

llghtblue; 

( Katalogfenster 

, exe-Datei 

fccom 


lightmagenta; 

( Katalogfenster 

, com-Datei 

bedr 

• 

blue; 

( Druckerinfofenster, Grund 

fedr 

» 

lightgray; 

( Druckerinfofenster, Text 

fead 


black; 

( restliche Fenster, Textfarbe 

bcad 


cyan; 

( restliche Fenster, Hintergrund 


sequenz = 10; ( Wartezeit in maek bei Shifttastenabfrage 

strich* -'; 

x£ - 3; ( Streckfoktor bei grafischer Bauwdarstellung 


type str80 » string|80); 

strl2 - Btring|12); 

pathType - array(0..255) of str80; 

pathAttrType - array|0..255] of byte; 


) 

) 

) 

) 

) 

) 

) 

) 

) 

( 

) 

) 

) 

) 

) 

) 

) 

I 

1 

) 

I 

1 

) 

1 

( 

) 

1 

) 

) 

I 

) 

) 

) 

) 

1 

) 


var 


Nr,LNr,y,long,v,textattra1t,ende,first,a 

path,Ast 

pathAttr 

dir.altdir,leer,Parameter 
f 

buff 1, buff 2 

shiftR,BhtftL,Alt,NumLock,CapsLock, 
ScrollLock,Control,lns,gtk 


: byte; 

: ’pathtype; 

: 'pathAttrType; 

: string; 

: text; 

: array(l..4000) of byt 
: boolean; 


(..... 

( H O T K E Y 


I 

J 


i 

( Funktion enthält das aktuelle Laufwerk als String 


) 

) 

) 

) 


function LwStr:string; ( Lwstr ) 

var s : Gtring; 

begin 

getdir(0,s); 

LwStr:=copy(s, 1,2); 

end; { LwStr ) 


| PrlnterStatuo ) 


function PrinterSlatus: byte ; 

var PortNr : longint; 

begin 

PortNr:=mom[$0040;$0008]+256»mem[$0040: $0009); 

PortNr :«PortNrU; 

Printerstatus: =port( PortNr]; { 71 * Papier OK, nicht online ) 

( 103 - Drucker an, kein Papier ) 

) 127 = Drucker nicht angeschlossen ) 

i 135 = Drucker ist aus ) 

( 223 • Drucker online ) 

end; 


0 U I C K S 0 R 


procedure guickoort(links,rechts: word); 
var i,j : word; 

x,c : atring(BO); 

begin ( quicksort ) 

I:=links; ( untere Sortiergrenze ) 

j:=rechta; ( obere Sortiergrenze j 

if j>i then ( Sortierung nicht abgeschlossen j 

begin 

x:»path'((linke*rechts) div 2); 
repeat 

do ifi+1; 

do j: = 3 -1; 


whilo path‘[i] 

while path'ij] 

if i <“ j then 

begin 

c:-path'fi); 
pat.h' [ i] : =path‘ ( j) ; 
path*[j)i»c; 
i: =i+l; 
j :=■ j-1; 
end; 

until i>j; 
quicksort(linkB, j) ; 
quickeort (i, rechte); 
end; 
end; 


( Verzeichnisse vertauschen ) 


( rekursiver Aufruf 
( rekursiver Aufruf 


( quicksort ) 


procedure FindLong(w : byte); 

var i : byte; 

begin 

long:»1; 
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for i:*2 to w do 

if length(ast"[i])>long then long:-length(aBt'[ i ]) ; 

end; 


I..- 

( C 


URS 


0 R 


) 

) 


rewrite(f); 

£or a:»l fco nr do writeln(f,path'(aJ) ; 
dose (f ) ; 

assign(f, '\bauminfo.dat 1 ); 

aetfattr(f,hidden); 
a:=ioresult; 
end; 


( aktualisieren 
( Datei speichern ) 

( Datei verstecken ) 

( scanpath ) 


procedure Curßor(a,t> :byte); { 

var regs : registers; 

begin 

with regs do 
begin 

ax:-l shl ß ; 
cx:=a shl B*b; 
int.r ($ 10 , regs); 
end; 
end; 

function colorsboolean; 
var b : booiean; 

begin 

b:=falsc; 

if (mem[0000:1040) and 48)<>4B then b:-true; 
color:*b; 
end; 


verändert den Cursor ) 


{ Cursor ) 
( color ) 


( color | 


procedure cursorAn; 
begin 

if color then Cursor(5,6) 
end; 


elBe cursor(12,13); 


schaltet Cursor an ) 
( cursorAn ) 


procedure cursorAus; ( schaltet Cursor aus ) 

begin 

cursor(48,1); 

end; < cursorAus ) 


function videoPtr : polnter; 

var p: pointer; 

begin 

if color 

then p:“ptr($BB00,0000) 
eise p:=ptr(SB000,0000 ); 
videoPtr:=p; 
end; 


( videoPtr } 
( zeigt auf Anfangsaddreese } 
( des Bildschirrospeichers J 

( color 1 
( mono j 

( videoPtr ) 


procedure ton( Uz,time : Word); 
begin 

sound(Hz); 
deiay(time); 
nosound; 
end; 


gibt Ton aus ) 


( ton ) 


procedure w(x,y:byte; str:char); ( w 1 

begin 

gotoxy(x,y); 

write(str); 

end; 1 w 1 


{ 

I 


NEXTPFAD 


1 

i 


procedure r.extPfad( LW: String ); 
var Srec : eearchrec; 
s : char; 

£ : byte; 

procedure notepath; ( notepath ) 

begin 

f: «doserror; 

if ((srec.attr and directory) - ’direcuory) and 
(SRec.name«'. ‘) and (SRec.nameo 1 ..' ) 
and (f<> 18) then 
begi n 

nr^nr+l; 

path‘(Nr1:■ concat( LW, SRec.Name,'V); 
end; 

end; 1 notepath ) 

begin ( nextpfad ) 


£indFirst( concatfLW,■•.*•) ,anyfile,SRec); 


notepath; 1 evtl, gefundenes Verzeichnis notieren ) 

if (<>-18 then ( kein Eintrag in der FAT gefunden ) 

repeat 

findNext.(SRec); 

notepath; ( evtl, gefundenes Verzeichnis notieren ) 

until (f"18); l keine weiteren Einträge ) 

LNr:”LNr+1; 

end; ! nextPfad ) 


I- -.....— ...) 

SCANPATH ) 


procedure scanpath; 
var a : byte; 
begin 

for a:-l to 253 do 
begin 

path'(a):-' ' ; 
pathAttr'(a|:-255; 
end; 
n r: = 1 ; 
lnrs=l; 

path'[1Ji*'\ ; 

repeat nextpfad(path"[lnrJ) unt 
quicksort( 2 ,nr); 
chdireV ); 

assign(f,' \bauminfo.dat '); 
setfattr(f,archive); 


( sämtliche Verzeichnisse einiesen ) 
( scanpath ) 


( initialisieren 


( for ) 


il lnr>nr; 

( gefundene Verzeichnisse sortieron ) 
( Verzeichnisdatei ) 
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( M A K E A S T ) 

procedure makeAat; ( Stellt den Ast graphisch dar ) 

var tiefe : array[0..255) of byte; 
p,i :byte; 
taste:char; 

function strl(a:byte):byte; ( strl ) 

vor b,i: byte; 
begin 
i :=a; 

repeat i:=i+l until (i=Nr) or (tiefe( i]»l) ; 

if tie£efa)*>tiefe| 1 1 then 

begin 

if (tiefe(i l=tiefe|1 )) then b:»l olse b:*2 
end 

olse if (tiefe[i]-tiefe(lj) then b:*3 eise b:=4; 
if Nr*a then 

if tiefe[a)=l then b:=2 olse b:=4; 
strl:=b; 

end; { strl ) 

function Btr2(a, j :byte):byte; ( 8tr2 } 

var i,b:byte; 
begin 
i: =a; 

repeat i:«i+j until tiefef i)<=j; 
if tiefe[i]<j then b:=2 eise b:»l; 
if a=nr then b:=2; 
str 2 :=b; 

end; ( str 2 ) 

function str3(a,j :byte):byto; ( str3 ) 

var c,£,ul,u 2 ,v:byte; 

begin 

if (tiefe(a)>tiefe(a+ 1 ]) then £:=1 
elBe 
begin 
c:« a; 

repeat c:=c+l until tiefe(c)<*tiefe[a) ; 
ul:-0; 
v: -1 ; 

while v+l<j do 
begin 

if path" (a,ul )•'V then v:*v»l; 
ul:»ul+l; 
end; 
u2:=ul; 
repeat 

u 2 :=u 2 +l; 

until ( (u2>length(path" |a))) or (path"( a,u 2 )= 1 \')); 
if copy(path"( a ),ul, u2-ul)=copy (path' (c],ul,u 2 -ul) 
then £:=2 eise f:=l; 

end; 

str3: =>f ; 

end; ( str3 ) 


begin ( makeAst ) 

nr:=ende; 

quicksort(2,ende); 
for p:”l to nr do 
begin 

tiefe(p) :=0; 

for i:=1 to length(path"[p)) do ( Tiefe notieren ) 

if poth"lp,i]='\' then tiefe(p):=liefe[p]+l; 

end; 

for i:»nr+l to 255 do tiefe) i]:>0; 

for p:-l to Nr do 

begin 

ast'[pJ 1 ; 

for i:=tiefe(l| to tie£e[p] do 
begin 

if i=tie£e(lj then 
case strl(p) of 

1 : ast"[p]:«a8t"(p) + ‘t-’ ’ copy(strich, 1 ,xf); 

2: ast’[p]:-ast'[p)+'• copy(strich, 1 ,xf); 

3: asf [p] :«aet'(p]+' | ' + copy (leer,) ,xf ) ; 

4: ast"Ip]:“ast"( pJ + ■ • + copy(leer,1,x£); 
end; (case) 

if (i<tio£o[p)) and (i>tiefe[l]> then 
case str2(p,i) of 

1 : ast"(p):=ast'| p] + '|' + copy(leer, 1 ,xf); 

2: ast" (p.:=ast"[p] *' ' + copy(leer,l,x£); 
end; (case) 

if (i=tiofe[p)) and (i>tiefe(l)) then 
case str3(p,i) of 

1 : ast" 1 p|:=ast"(p]+ 1L ' ♦ copy(strich,1,xf); 

2 : ast" [ p) :=aat" (p) + ’ + copy (strich, l,xf); 

end; (case) 

end; 

i:’iength(path"[p]); 

repeat i: = i-l until ((i*0) or (path"[p,i)-'A 1 )); 
ast" (p) :=ast"[p)+copy(path" (p), i+ 1 ,length(path"(p))-i); 


end; 

for p:-1 to nr do delete(ast"[p),1, 1 +xf); 
for p:=2 to nr do delete(ast" (p j, longth(ast" [p)), 1 li¬ 
est " | 11:=copy(LWStr,1,2 ) ; 
and; 


( MakeAst ) 


HILFEN 


) 

} 


procedure hilfBtext; ( gibt kurze Parametererklärung aus ) 
beqin 

writeln('XCD ersetz den Dosbefehl (chdir) und wird aufgerufen: - ); 
writeln(•'); 

writeln('1. mit Parameterangabe'); 
writelnj • ’) ; 
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writeln«’ l.l xcd <Verzeichnis> (Angabe einer Silbe reicht) - ); 
writelnj' 1.2 xcd ? momentane Hilfe'); 

writeln«' 1.3 xcd A Verzeichnisdatei aktualisieren'); 

writeln«'' ) ; 

writelnj'2. ohne Parameterangabe'); 

writeln«' Dabei dienen folgende Tasten zur Wahl des Pfades:'); 

urlteln(' Home,End,ShifttaBten,PgUp,PgDn,Curaortaaten,A-Z,a-z'); 

writelnj' CR bestätigt die Wahl); 

writelnl' ESC bricht Programm ab'); 

writeln(' Fl momentane Hilfe); 

writelnj' F2 zeigt Direktory'); 

writelnC F3 druckt Unterverzoichnisliste■); 

writelnj' F4 Untervorzeichnio oinrichten'); 

writeln(' P5 Unterverzeichnis löschen'); 

writelnj' F6 Unterverzeichnis umbenennen - ); 

writelnC P7 Unterverzeichnisattribut verändern'); 

writelnC F10 erneuert die Verzeichniedatei'); 

writelnj''); 

writelnCXCD V2.21 <C)1990 by Marc Kronberg (D-3452) - >; 

end; ( Hilfstext 1 


procedure hilfe; 
beqin 

writeln« ' ); 
h l Ifstext; 
cursorAn; 
halt; 
end; 

procedure hilfe2; 
begin 

move< videoPtr - ,bu££2,4000); 
window«1,1,80/25); 
textbackground(bch); 
textcolor(fch); 
clrscr; 

window(9,2,80,25); 
hilfstext; 
write(readkey); 
movo(bu f f 2,VideoPtr',4000); 
window(2l-v,3,60+v,24); 
end; 


( Hilfe beim Aufruf 'xcd ?* ) 

( Programm abbrechen ) 
( hilfe j 
{ Hil£e2 ) 

1 Bildschirm speichern 1 

( Bildschirm löschen ) 

| Tastendruck abwarten } 
( alter Bildschirm restaurieren ) 

( hilfe2 ) 


( 

( 


D A T E S T R 


) 

) 


function DateStr:string; 

var year,month,day,dayOfWeek : ward; 

strl,str 2 : string; 

begin 

str2'; 

getdate(year,month,day,dayOfWeek); 

otr(day,strl); 

etr 2 :-strl+'.'; 

str(month,strl); 

str 2 :=str 2 +strl+'.'; 

slr(year,atrl); 

str2 :-str2+strl ; 

DateStr:=str2; 
end; 


« DateStr ) 

( Datum ermitteln ) 

Systemzeit wird in einen ) 
{ String umgewandelt ) 

( DateStr ) 


I--—.—...-.-1 

KATALOG 

( Prozedur listet alle Dateien eines Unterverzeichnisseo 

j auf, wobei Dateiarten einer Farbe zugeordnet werden. 

( ) 


procedure Katalog« LW: string); 
var Srec i searchrec; 
a i char; 
i : integer; 
str : atring[3); 
b : boolean; 

begin { Katalog ) 

move( videoPtr ,buf f2,4000); ( Bildschirm speichern ) 

window( 1,1,80,25); 
textbackground(bccat); 
textcolor(fccat); 
chdir(•V); 

chdir(copy( LW,l, length(LW)-1)); 

if ioreeult-Ö then ( wenn Verzeichnis noch vorhanden ) 

begin 
clrscr) 

wrlte(' Directory“ •,LWStr,LW,' Date» '.DateStr); 
window( 2,3,15,25); 
i: “0; 
b:=£alao; 

findFirSt( concat( LW,'*. *') , anyfile,SRec ) ; 

while doserrorolB do 

begin 

if ((SRec.Attr and directory)<>directory) and 

j (SRec.Attr and VolumeID)<>VolumeID) and ( SRec.nomeo' . - ) and 
j SRec.nameo • . . ') and (doserror<>18) then 
begin 
1:»i+1; 

b:»true; 
case i of 

23 : window( 15,3,28,25); 

45 : window (28,3,41,25); 

67 : window(41,3, 54,25); 

89 : window« 54 ,3,67,25); 

111 : window«67,3,80,25); 

1.33 : begin 

window( 1,2,80,25); 

write(readkey); ( auf Tastendruck warten } 

clrscr; 
i: “ 1 ; 

window(2 ,3,15,25); 
writeln( SRec.name); 

end; 


end; 1 case ) 

textcolor«fccat); 

str:=(copy(SRec.name,length« SRec.name)-2,3)); 
if ( str* 'bat') or (str-'BAT'> then textcolor(fcbat); 
if ( 6tr*>' exe' ) or (str- - EXE '> then textcolor(fcexe) ; 
if «str»'com - ) or jstr' - C0M') then textcolor(fccom); 


writein(SRec.name); 

end; ( if ) 

findnext(SRec); 

end; | while ) 

if (not b) then write(‘Keine Dateien gefundenl - ); 
end; 

writeln(readkey); 

move(buff2,VideoPtr", 4000); ( alter Bildschirm ) 

window« 2i-v, 3,60+v,24 ); 

end; { Katalog ) 


( Bildschirm speichern ) 


function VorhandenTest : boolean; 
var OK : boolean; 
s : char ; 
b,i : byte; 
begin 

ok:=true; 

move( videoPtr" ,buff2,4000); 
textbackground«bccat) ; 
textcolor« fccat); 
chdir« ’V); 

chdirjcopy«path" (a), 1 , iength(path‘ [a ) )-l) ); 

if ioresultoO then ( wenn Verzeichnis nicht mehr vorhanden ) 

begin 

window« 18,5,52,10); 
textbackgroundjbcdr ); 

if color then textcolor«fcdr> eise textcolor(black); 
clrscr,' 

window« 38,S,54,10); 

writeln«' -.') 

writeln( ' ’) 

writeln«' Das Verzeichnis ist nicht ') 

writeln«' mehr vorhanden II ' ) 

writeln« ' ■ ) 

write ( - - 1 ) 

writeln«readkey); 
move(buff2,VideoPtr",4000); ( alter Bildschirm | 

| prüfen, ob evtl. Uhtorvorzeichnisse in der Liete sind 
b:=a; 

whiie path"[a|=copy(path' ( b+1),1,length(path"[a])) do b:«b+l; 
for i:=a to ende-(b-a+l) do path"[i]:=path"(i+(b-a+l)); 


for l:»ende-(b-a) to 255 do path'ji]:> 
ende:=ende-(b-a+ 1 ); 
nr:=ende; 

for i:»endo+l to 255 do path"[i|: = '' ; 
chdir«'\'); 

aesign(f, '\bauminfo.dat' ); 

setfattrj f,archive); 
rewrite(f ); 

for i:»l to endo do writeln«f.patli'[i ]); 
close« f); 

aesign«f,' \bauminfo.dat' ); 
eetfattr(f,hidden); 
i:«ioreoult; 

MakeAat; 

window«21-v,3,60+v,24); 
gotoxy«1,1); 
textbackground(bcf); 
textcolorffcf); 
clrscr; 

for i:»0 to 20 do 


| leere path löschen 

( Verzeichnisdatei ) 
( aktualisieren ) 
( Datei speichern ) 
« Datei verstecken ) 

( normale Darstellung ( 


( Hauptfenster löschen ) 
.. -. . — ™ « Baum auf Screen ausgeben [ 

if first+i<*ende then writeln(ast' 1 first+i)); 
if first+21<=ende then write(ast'(firot+ 21 )); 

textbackground(beb); ( invertierte Darstellung ) 

highvideo; 
textcolor(feb); 
lf a>l then a:»a-l; 
gotoxy«1, 1 +a-first); 
ok:»£alae; 
end; 

VorbandenTeot:-ok; 

end; ( VorhandenTest ( 


( ----- 

( C D _ 

1 

procedure cd_para; 

var Btr,param,param2 : string; 
maxKbene,fehler,y, 
a,i,j.ende,ebene : byte; 

tiefe : array[1..255 | of byte; 

OK.dummy : boolean; 

ch : string« 1 J; 

begin 

if whereY>l then 

y:=whereY-l eise y:=l; 
dir:»''; 

( Der erste Wechselversuch findet im momentanen Verzeichnis | 

j statt, «aktuelles Verzeichnis=höchste Priorität) 


--l 

ARA ) 

l 

( übergebener Parameter soll neues ) 
( Verzeichnis sein ) 


( cd_para ) 
( Zeile merken ) 


chdir«ParamStr«1) ); 
fehler:«ioreoult; 
if fehler<>0 then 
begin 

chdir«" \') ; 
chdir(ParamStr(1)) ; 
fehler:»ioresult; 
end; 

i£ fehleroO then 
begin 

for a:»l to 255 do ... 

assign« f,' \bauminfo.dat '); 
reset(f); 
if ioresultoO 
then ecanpath 
eise 
begin 
a: »1 ; 

while (not eof«f>) do 
begin 

readln« f.path"(a)); 
a:»a+l; 
end; 

nr:=a-l; 


( erster Wecheelverauch | 
( Fehlermeldung speichern ) 
( wenn Fehler, dann ... | 


( zweiter Wechselversuch > 
( Fehlermeldung speichern ) 

( wenn Fehler, dann ... ) 

( path initialisieren 

( Verzeichnisdatei Öffnen ) 
| Verzeichniodatei nicht gefunden j 
( Verzeichnisse neu einleeen ) 


( Verzeichnisdatei aus lesen ) 


( while | 
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1 eise | 

( ende* Nr das letzten definierten path 1 


( Parameter soll ) 
( nur Großbuchstaben } 
{ enthalten ) 


Verzeichnisse durchgehen 1 


end; 

ende:=nr; 
maxebene:»!; 
param:-''; 

for a:*l to length(ParamStr(1)) do 
begin 

ch: = copy(paramStr(l),a,l>; 
param:=parara+upcase(ch[ 1 )); 
end; 

param 2 :*param; 

for a:“l to ende do [ oll« 

begin 
i:-0; 

for j:-l to length(path‘|a]> do 

if copytpar.ir [ a],j,1)*'\' then i:»i*l; 
if l>maxEbene then maxEbene:*>i; 

tie£e[a]:*i; I Ebene des Verzeichnisses merken } 

end; ( maxEbene ist höchste Unterverzeichnisebene ) 

OK:“false; ( Wechseln noch nicht geglückt ) 

dummy:=£alse; 

while (not OK) and ( solange nicht gewechselt... ) 

(length(param)>l) do 

begin 

ebene:»2; ( Hauptverzeichnis 1 

repeot 

a:-l; ( Verzeichnis, was dem Hauptverzeichnis ) 

repeat ( am nächsten liegt, hat höchste ) 

if tiefefa[«ebene then ( Prioritätl j 

begin 

i:“lsngthlpath"[a))-l; 

3:«i-l; 

while copy(path'[al,j,1><>'\' do j:=j-l; 
str »copyipath ' [ a), j ■> i, i-j) ; 
if ((copy(atr,1,length(param))*param) and 
(dummy)) or (Btr«param) then 
begin 

chdir('\‘; 

chdir(copy(path"[a ],1,length(path"[a))-l)); 
feh 1er: “ioresult; 

if fehler=o then OK:=true; [ gegluckt ? ) 

end; ( if ) 

end; ( if ) 

a:-a*i; 

until (a>ende; or (OK); 

ebene:«ebene«1; ( mom. Verzelchnisebene (Tiefe) ) 

until (OK) [ Wechselversuch geglilckt ) 

or (obene-maxEbene+1); ( alles probiert ) 

if dummy then poram:=copy(param,l,iength(param)- 1 > ; 
dummy:*true; 

en ö; ( while ) 

( Wenn alle Wechselversuche mißglückt sind, dann wird geprüft, ) 
{ ob der übergebene Porameterstring als Silbe eineß Unterver- ) 
( zeichnis vorhanden ist. Wenn ja, dann wird die allererste 
1 Möglichkeit ausprobiert. Es gibt also nicht mehr die Priorität ) 
( der Verzelchnisebene! ) 

o:-l; 

while (fehieroO) and (a*-ende) do 
begin 

if pos(param2,path‘[a ])<>0 then 
begin 

chdir( 1 V); 

chdir(copy(path•(a) / l,length(path'(a))-l)); 
fehler:«ioreoult; 
end ; 
a:=a+l; 

end; « while ) 

end; [ ff j 

gotoxy(59,y); 

write('(c)90 by Marc Kronberg'); 

if fehler<>0 then , [ falls Wechselverauch mißglückt ) 

begin 

chdir( • \ ' ); 

chdirjaltdir); ( ins ursprüngliche Verzeichnis gehen ) 

writeln(' ' ); 

write('Verzeichnis nicht gefunden I (evtl, hilft "xcd A").'); 
writeln( ' ' ); 

end; { if , 

textattr:=textattralt; ( alte Farbwerte setzen > 

cursorAn; ( Cursor wird angeschaltet ) 

dispose(path); 
dispose(ast) ; 
diopose(pathAttr); 

halt; ( Programmabbruch ) 

end; ( c d_para ) 


( letzter versuch ) 


I i£ I 


Verzeichnisse werden der Datei “Bauminfo.dat“ entnommen 
oder neu eingeieeen, Hauptfenster wird geöffnet. 


procedura hauptfenster; 
var y,x,i,j : byte; 
taste 

apezialtaate,vor 
b, str 
searchStr 
reg 


procedure inv; 
begin 

textbackground(bcb); 
highvideo; 
textcolor(fcb); 
end; 


procedure norv; 
begin 

textbackground(bc£); 
textcolor«fcf); 
end; 


char; 

boolean; 

string; 

strl 2 ; 

registers; 


( lokale Prozeduren : ) 
( inv ) 

( invertierte Darstellung ) 

( inv ) 

( norv ) 
( normale Darstellung ) 
( norv ) 


Listing. XCD 


( drucken ) 
) einer Verzeichnis liste ) 


I Bildschirm speichern ) 


Baum: ,LWStr,• 

',DateStr); 




,ast"[a |); 


Der Drucker ist nicht bereit III 
Soll der Druck abgebrochen werden ? 


procedure drucken; 
var a,s : byte; 
ch : char; 
ok : boolean; 
begin 

move( vldeoPtr‘ ,buff2,4000); 
textbackground(bcdr); 

if color then textcolor(fedr) el B e textcoior(black); 
lowvideo; 
repeat 

s:»printerStatus; 
if s-223 then 
begin 

writeln(LST,■•); 
write (LST, 1 
writeln« LST, 'Date 
writeln(LST,•• ); 
for a: = l to ende do writeln(LST, 
writeln(LST, 1 ' ); 
ok:=true; 
end eise 
begin 

ok:=false; 
window (18,5/62,15); 
textbackground(bcdr); 

if color then textcolor(fedr) eise textcolor«black); 
lowvideo; " 

clrscr; 

window(18,5,80,25); 
writeln«' 
writeln(' 
writeln( ' 
writeln(' 
writeln«' 
writeln«' 
writeln«' 
writeln«' 
writeln«' 
writ.ein( ' 
writeln(' 
gotoxy(4,4); 

ii s<>223 thon write« 'Drucker nicht On-Line |M; 

gotoxy(4,4); 

if (s and 64)=64 then 

gotoxy(4°4?- l6 ** 16 then write <'Drucker nicht angeschlossen !'); 

If (s and 128)-128 then writo('Drucker ist abqeschaltet I 

textcolor(wh.ite); " 

textbackground( biack); 

highvideo; 

w( 8,8, 'O'); 

w( 23,8,'R' ); 

window(1,1,80,25); 

ton ( 200 , 200 ); , „ arnton , 

repeat 

ch:=readkey; 

until (ord(ch) in [er, esc)) or 

(ch in ['0’,'o','r','R']); 

end; ^ eise ) 

until (OK) or (ch in ['0 - ,'o'|) or (ord(ch) in [er, esc]); 
move(buf£2,VldeoPtr',4000); ( a iter Bildschirm [ 

window« 2 i-v,3, 60 +v,24); 

end -' ( drucken ) 


function pathStrf s2 : Btring ):string; ( pathStr ) 

var str : string; [ pathStr wird auf 40 char reduziert 1 

begin 

if length(s2)<41 then str:“62 

eise str:»copy«s2,length<s2)-40,40); 

pathStr:*str; 
end; 


OK 


Retry 


procedure makedir; 
var ch : char; 

o,s 2 : string; 

i,punkt : byte; 

ok : boolean, 

begin 

roove( videoPtr 
ok:-false; 
window(18,5,62,15); 
textbackground(bcad) ; 
textcolor(fcad); 
lowvideo; 
clrscr; 

window(18,5,80,25); 


pathStr [ 


[ makedir J 


buff2,4000); 


( Bildschirm speichern | 


-Sub Directory Add- 


Geben Sie das Unterverzeichnio an. 


writeln«• 
writeln«' 
writeln«' 
writeln«• 
writelnf' 
writeln!' 
writeln!' 
writeln! ' 
writeln! ' 
writeln!• 
writeln!■ 
writeln« " 
writeln« ' 
gotoxy(4,S); 

write(pathStr(LwStr+path”[a |)); 
cursorAn; 

window(27,10,39,10); 
readln« b 2 ); 


( Cursor anschalten 
( Namen abfragen 


( Namen verkürzen ) 


window«18,5,80,25); 
punkt:=Pos(’ .',s2); 
if punkt>9 then 
begin 

delete(s2,9,punkt-9); 
punkt:“Pos( ' .',s2); 
end; 

if punkt>0 then 

if length(s2)>punkt+3 then delete«o2,punkt+4,length«s2)-punkt-3) 
if punkt =0 then 

if length(e2>>8 then 
begin 

Listing: XCD 
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Insert!•.■,s2,9); 

if length!o2)>12 then delete(s2,13,length<82)-12); 
end; 

do s:«s+upcase(B2[i)); 


for t:-l to length(s2) 
gotoxy! 10 , 6 ); 
write(s+ ' ]' ); 

CursorAue; 

toxtcolor(lightred); 
textbackground(black); 
highvideo; 
w(8, 10,'0'); 
w(22,10,'C'); 
repeat ch:»readkey; 


( Cursor ausschalten ) 


( Tastendruck abwarten 


untll (ord(ch) ln [er,esc)) or (ch in ('0',•o-, 'c ','C'1); 


( Zustimmung ) 
[ Name angegeben j 


( Directory einrichten 
( Fehler aufgatreten ) 


Fehlermeldung ) 


( Tastendruck abwarten 
| Tastaturpu£fer leeren 


if (ord(ch)-cr) or (ch in ['0','o'J) then 
if length(e)>0 then 
begin 

mkdlr(LwStr+poth'[a]+s); 
if not (ioresult^O) then 
begin 

gotoxy(4,7); 

write<'Fehler ist aufgetreten I'); 

Uon(300,200) ; 
ch:“readkey; 

if ch=*0 then ch:»readkey; 
ond eine 

begin ( Directory erfolgreich eingerichtet 

ende:=ondo*l; 

path ‘ [ ende ) :»path' [ a) *s- ' \ ') 

? uicksort(2,ende); 

or il=l to 255 do pathAttr'[i):=255; 
ok: =true; 
chdir<• V >; 

assign(f,' \bauminfo .dat•>; 
setfattr(f,archive); 
rewrite(f); 

for i:*l to ende do writeLn{f,path'(i) 
c.loee(f); 

aesign(f,' \baumlnfo.dat '); 
setfattr(£.hidden); 
i:=ioresult; 
end; 
er.d; 

move(buff2,VideoPtr',4000); 
window! 21 -v,3, 60 +v,24); 
if ok then 
begin 
norv; 

MakeAst; 

FlndU)ng(ende); 

if long>39 then v;=round( (long-39)/2); 
window( 20 -v, 1 , 60 +v,25); 
norv; 
clrscr; 
wriheln(' xcd 


[ Liste sortieren ) 

| Verzeichnisdatei | 

( aktualisieren ) 

{ Datei speichern ) 

| Datei verstecken ) 

< eise ) 
C if ) 

( alter Bildschirm ) 

( normale Farben ) 


( normale Darstellung ) 
1 Bildschirm löschen ) 


(f ]=help)',copy( leer,1,6+2*v) 

,'(c)90 Kronberg'); 

writeln!''); 

window(21-v,3,60+v,24)j 
if 20+first<ende 

then for i;»first to 20+first do writeln (ast.' [i|) 
eise for i:-£irst to ende do writoln(ast'[i)); 
if 21+flrst<=ende then write(ast'[2 1 *f irst)); 
ond; 

end; ( raakedir | 


proccduro remakedir; 
var ch : char; 
i : byte; 
ok ; boolean; 
s2 : string; 

begin 

move( videoPtr" ,buff2,4000); 
ok:=false; 
window(18,5,62,15); 
textbackground(bcad); 
textcolor(fcad); 
lowvideo; 
olrscr; 

windowl18,5,80,25); 


( remakedir 


( Bildschirm speichern 


-Sub Directory Delete- 


soll gelöscht werdenl 


writeln( 
writeln! 1 
writeln! 1 
writeln(• 
writeln(• 
writeln!• 
writeln! 1 
writeln! 1 
writeln! 1 
writeln! 1 
writeln! • 
gotoxy (4, 3); 

write(pathStr(LwStr+path'[a))); 

textcolor!lightred); 

textbackground(black); 

highvideo; 

w(8,8, O-); 

w( 22 ,8,*C‘ ); 

repeat ch: -readkey; 

until (ord(ch) in [cr,eac|) or (ch in ['O' 
1£ (ord(ch)-ar) or (ch in ['O'i'o'D then 
begin 

chdir('V ); 

rmdir(Lwstr+copy(path'[a],1,length(path' 

if not (ioresult=0) then 

begin 

gotoxy(4,5); 

write( Fehler ist aufgetreten I’); 

ton(300,200); 

ch:-readkey; 

if ch-(0 then ch:-readkey; 
end eise 
begin 

ende:=ende-l; 

for i:‘a to ende do 

begin 

path'[i|:=pnth'[i+l ); 
pathAttr' [ i ]: -pathAttr' [ i+1); 
end; 

path’[ende*l 

List Ing; XCD 


( Tastendruck abwarten ) 
, 'O', -c- , 1 C' 1 ); 

( Zustimmung ) 

! Directory löschen ) 
Co))-l)); 

! Fehler aufgotroten ) 
( Fehlermeldung ) 


Tastendruck abwarton ) 
( Scancode losen } 


( VerzeichniBdatei 

1 aktualisieren 

( Datei speichern 

( Datei vorstecken 

( eise 
I if 

( alter Bildschirm 


ok:-true; 
chdir(’\'); 

assign!£,' \bauminfo.dat' ); 
setfattr(f,archive); 
rewrite(f); 

for i:=l to ende do writeln(f,path'[i)); 
cioee(f); 

aB8ign(f, 1 \bauminfo.dat '); 
setfattr(£,hidden); 
i-.»ioresult; 
end; 
end; 

move(buf £ 2,VideoPtr',4000); 
window! 21-v,3,60+v, 24); 
if ok then ( Verzeichnis wurde gelöscht 

begin . . 

norv; ( normalo Farben 

a:»a-l; 

MakeAst; 

gotoxy!1> 2 +a-first); 

delLlne; 

gotoxy(1,22); 

If £lrst+ 21 <=ende then write(aat'[ 21 +first]); 
clreoi; . , 

gotoxy! 1, 2+a-first); ( alte Cursorposition 

end; , , < 

sn( j ; ( remakedir 


procedure renamedir; 
var ch : char; 

n,s2 : string; 

i,l,r,punkt : byte; 

ok : boolean; 

d : file; 

begin 

move( videoPtr' ,buf£2,4000); 
ok:=£alse; 
window(18,5,62,15); 
textbackground(bcad); 
textcolor!fead); 
lowvideo; 
clrscr; 

window!18,5,80,25); 


| renamedir ) 


( Bildschirm speichern ) 


•Sub Directory Rename- 


Geben Sie den neuen Namen an. 


Narae=( 


OK 


Cancel 


( Cursor anBchalten ) 
( Namen abfragen ) 

| Namen verkürzen ) 


writeln! • 
writeln! • 
writeln!• 
writeln!’ 
writeln! 1 
writeln!‘ 
writeln! 1 
writeln! 1 
writeln!’ 
writeln!• 
writeln!' 
writelnj• 
writeln!' 
gotoxy(4,6); 

write(pathStr(LwStr+path' (a)) ); 
cursorAn; 

window(27,10,39,10); 
readln(a2); 

window!18,5,80,25); 
punkt:=Pos(’. 1 ,s2); 

If punkt»9 then 
begin 

delete!s 2 ,9,punkt-9) ; 
punkt:»Pos( 1 . 1 ,s2 ); 
end; 

if punkt>0 then 

if length(s2)>punkt+3 then delete(s2,punkt+4, length!s2)-punkt-3); 
if punkt =0 then 

if length(s2)>8 then 
begin 

Insert! 1 . 1 ,s2,9) ; 

if lenqth!s2)>12 then delete! b2 ,13,length!s2)-12); 
end; 

window(18,5,80,25); 

for i:=l to length(s2) do s:=s+upcase(s2(i)); 

gotoxy( 10 , 6 >; 

write(s+'J 1 ); 

cursorAus; { Cursor ausschalten 

textcolor!lightred); 
textbackground(black); 
highvideo; 

W(8,10, -O' ); 

w( 22 , 10 , 'C ); 

repeat ch:-teadkey; ( Tastendruck abwarten 

until (ord(ch) in [er,esc)) or (ch in [' 0 ','o 1 ,'c',’C 1 )); 
if (ord(ch)=cr) or (ch in ['0’,'O')) then ( Zustimmung 

if length!s )>0 then ( Name angegeben 

begin 

gotoxy(4,7); 
chdir('V ); 

chdir(copy(path‘(a), 1 ,length!path'[al)-l)); 

if ioreBultoO then write( 'Verzeichnis mehr nicht vorhanden!'); 

chdir('..'); 

ausign(d,copy(path*[a], 1 ,length(path'[a])-l)); 


( umbenennen 
! Fehler aufgetreten 


| Fehlermeldung 


( Tastendruck abwarten 
( Tastaturpuffer leeren 


renarae(d, s); 

if not (ioresult» 0 ) then 
begin 

gotoxy(4,8); 

writeln!'Fehler ist aufgetretenl'); 
ton( 300, 200 ); 
ch:»readkey; 

if ch=*0 then ch:»readkey; 
ok:«false; 
end eise 

begin ( Directory erfolgreich umbenannt 

ok:“true; 

delete(path'|a),length (path' (a)), 1 ); 
r:»length(path" [a)>; 

1: =r ; 

whilo copy(path'[a),1, 1 )<>’\- do l:=l-l; 

1:-1+I; 

s 2:-copy(path'[a],l,r-l*l); 
delete (path - [a],l,r-i«-l); 
path'[a): -path'[a)ist'\'; 
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1 :» 1 ; 

while copy(path" [a+i],l,r-l+l)=a 2 do 
begin 

deleto(path‘(a+i ],1, r-1+1 ) ; 
inaert(s,path'{ a+i], 1 ) ; 

if iength(path" [a+i])>long then long:-lenyth(path'[a+ 1 ) ); 
end; 

firat®°l^ <2 ' 0nde); < U8te Bortieren I 

whilc ( copy(path"[firat), 1 ,length(s) )<>s) do firBt:=fir8t+l; 
a:-first; ( inverser Balken zeigt neues Verzeichnis ) 


for i:=1 to 255 do pathAttr"fj ] :=255; 
ok:»true; 
chdir('\•); 

assign(f, \bauminfo.dat 1 ); 
setfattr(f,archive); 
rewrits(f); 

for i :“1 to ende do writeln(f,path"[i )); 
closej f); 

aooignj f, '\bauminfo.dat' ); 
eetfattr(f,hidden); 
i:=ioresult; 
end; 
end; 

raove(buff2,VideoPtr‘,4000); 
window( 21 -v,3, 60 +v,24); 
lf ok then 
begin 
MakeAst; 

PindLong(ende); 
norv; 

i£ long>39 then v:=round( (long-39)/2); 
window(20-v,1,60+v,25); 
norv; 
clrscr; 
writelnf xcd 


( Initialisierung 
I rename geglückt ) 

( Verzeichniedatei ) 

( aktualisieren ) 

( Datei speichern ) 

( Datei verstecken ) 

( eise ) 

I iE 1 

| alter Bildschirm } 


( normale Farben ) 


( normale Darstellung ) 
( Bildschirm löschen ] 
fl-help) 1 ,copy(Ieer,l, 6 + 2 *v) 

writeln <' ' ); ' ,<C,9 ° Kronber 9'>' 

window( 21 -v,3, 60 +v,24) ; 
iE 20+fir8 tuende 

then for i: “-first to 20+first do writeln(aef (i )) 
eise for 1: «first to ende do writeln(aet"[i 1 ) ; 
if 21 + first< B ende then writefast'[ 21 +firet 1 ); 
end; 

end; < renamedir ) 


procedure AttrDir; 
var hid,sya,rea, arch 
ch,h 
i,Attr 


boolean; 

char; 

byte; 

string; 

reglsters; 


( AttrDir ) 


Bildschirm speichern ) 


reg 
begin 

move) videoPtr' ,buff2,4000); 

chdir(■V); 

B : = E.wSt r +copy (path" [a ), 1 , length)path * [ a ]) -1 ) +#0 ; 

j Segmentadres8e ) 
{ Offsetanteil der Addrosse ) 
( Attribut einer Datei ermitteln ) 
| Funktion 43h ) 


reg.DS:=seg(o(1]); 
reg.DX:=ofa(a(1)); 
reg.AL:- 0 ; 
reg.AH:-67; 
madoa(reg); 

Attr:=reg.CX; 


( wert des Attributes lesen ) 
( in der Pascalumgebung nicht fehlerfrei 111 ) 
li (Attr and hidden)=hidden then hid:«true eise hidi-falae; 
if (Attr and sysFile)-8ysFile then sys.:=true elae syai-false; 
if (Attr and readOnly)=readOnly then reai-true eise reai-falso; 
if (Attr and archive)-archive then arch:=true elee arch:-false; 
window(18,5,62,15); 
textbackground(bcad); 
textcolor(fcad); 
clrscr; 

window(18,5,80,25); 


-Modify Directory Attributee- 


( ) Hidden 
( ) Syatem 
( ) Read Only 
( ) Archive 


writeln( 
writeln( 
writeln( 
writein(' 
writein(' 
writeln(' 
writeln) ' 
writeln( 1 
writeln( ' 
writeln(' 
writeln(' 
writeln)• 
writeln)' 
writeln)■ 
gotoxy (4,3); 

write(pathStr(LwStr+path' ja])); 
textcolor<lightred); 
textbackground)black); 
highvideo; 
w( 9, 5,' H'); 
w(9,6, 'S' ); 
w) 9,7,■R' ); 
w(9,8,'A'); 
w(8, 11 , 'O'); 
w( 22 , 11 ,'C’ ) ; 
textbackground( bcad); 
textcolor(fcad); 
repeat 

lf ch in |• H•, 1 h 1 ) then 

if hid then hid:=£alse eise hidi-true; 
if ch in ( S' , 's' ) then 

lf sys then Bya:“£alse elae oys:=true; 
if ch in ('R’,'r•J then 

if rea then rea:-fal 80 eise reaj«true; 
if ch in ('A','a’) then 

if arch then arch:=false eise arch:-true; 
if hid then w(6,5,'-') elae w(6,5,' •) ; 


( Buchstaben invertiert daratellen 


if sye then w(6,6,'- ) elap v(6,6,' •) 
if rea then w(6,7,'-') eise w(6,7,' ') ; 
if arch then w(6,8,'-’) eise w(6,8,' ■) 
ch:=reodkey; 

if ch =*0 then h:=readkey; 
until (ord(ch) in [er, esc)) or (ch in ['0' 
if (ord(ch)-cr) or (ch in [' 0 ','o'j) then 
Lisling: XCD 


( Tastendruck abwarten ) 
Taataturpuf for leeren ) 
o ' , 1 c' , ’ C ' ) > ; 

) Zustimmung ) 


begin 

Attr:=0; 

if hid then Attr: -Attr+hidden; 

if ays then Attr:•Attr+syaFile; 

if rea then Attri«Attr+readOn!y; 

if arch then Attri»Attr+archive; 

reg.DS:=aeg(s[1]); 

reg.DX:=of s(a [1 ]) ; 

reg.CX:-Attr; 

reg.AL:= 1; 

reg. AH:-67; 

msdos(reg); 

gotoxy(4,13); 

textbackground (bcad); 
textcolorf fcad); 
lowvideo; 

if (reg.flags and 1)=0 
then 
begin 

pathAttr'|a):«Attr; 
write('Attribut ist geändert 
end 

elae begin 

textcolor ( lightred) ; 
textbackground (black); 
write( 'Attribut konnte nicht 
end; 

ton( 200 , 200 ); 
ch:=readkey; 

if ch=40 then h:»readkey; 
end; 

move (buff 2, VideoPtr' ,4000); 
window (2l-v, 3,60+V,24); 
end; 


( Attribut berechnen ) 


( Segmentadresse ) 
{ Offsetanteil der AddresBe ) 
( Wert dos Attributes ) 
( Attribut einer Datei setzen ) 
( Funktion 43h ) 


1 Carry-Flag lesen ) 


worden II') 


verändert werden I'); 


{ elae ) 

| Tastendruck abwarten ) 
( Tastaturpuffer leeren j 
< iE > 

( alter Bildschirm ) 
( AttrDir ) 


procedura writeSearch; 
begin 

window! 1,18,16,25); 
gotoxy(1,1); 

textbackground( 1 ightgr ay); 

textcolor! black); 

write) ' j— SpeedSearch—i 1 ); 

WfitC( ' | _ I ' ); 


write( 
gotoxy(3,2); 
textbackground(cyan) ; 
writ.e( ' ')• 

gotoxy(3,2); 
write(eearchStr); 
window( 21 -v,3, 60 +v,24) ; 

norv; 

end; 


>; 


Beginn der globalen Prozedur Hauptfenster 


begin 

if Parameter-“ ' A' then ecanpoth 
eise 
begin 

assign(f, '\bauminfo.dat' ); 
reset(f); 

if loreaultoO then scanpath 
eise 
begin 

for a:=l to 255 do path'[a]:-••; 
for a:=l to 255 do pathAttr'|aI:=255; 
a: = t; 

while (not eof(f)) do 
begin 

readin(£,path" [ a)) ; 
a:=a+l; 
end; 

nr:=a-l; 
end; 
end; 

ende:=nr; 
long:= 0 ; 
v: ■* 0 ; 

MakeAst; 

for a:=l to ende do t Hauptfenstergrö/3e ermitteln 

if leng_h(a8t [a])>long then long:»length(asf lal) ; 
if_long>39 then v:»round( (long-39)/2); 


( Hauptfenster ) 
( Verzeichnisse einiesen ) 


Verzeichnisdatei öffnen ) 
( Verzeichnisse einlosen ) 


( path initialisieren 
{ Verzeichniedatei aualesen ) 

( while ) 

( also ) 
( elae ) 

( ende« Nr doB letzten definierten path ) 


if whereV>l then 

y:=whereY-l eise y:=.l; 
gotoxy(),y); 
wrltefaltdlr,'>'); 
x:-whereX; 

move( videoPtr’,buffl,4000); 
window(20-v,1,60+v,25); 
norv; 
clrscr; 


( Zeile merken ) 

( Prompt $p$g auf Screen ausgeben ) 
1 Spalte merken ) 
( Bildschirm speichern ) 

( normale Darstellung ) 
{ Bildschirm löschen ) 


(fl-help)',copy(leer,1,6+2*v), '(c)90 Kronberg' 


writeln(‘ xcd 
writeln)''); 
if endo >22 

then for a: = l to 22 do writeinf ',asf[a)) 
elae for a:»l to ende do writeln( ' ',asf[a|); 
chdir('V); ( ina Hauptverzeichnis springen ) 

firat:=l; 
aearchstr:-''; 
repeat 

window( 20 -v, 1 ,60+v, 25 ) ; 

gotoxy(1,3); 

norv; 

for j : »0 to 21 do 

if firat*j<=ende then writeinf ' ,aat' [f irst+i 1 >; 
window (21-v,3, 60+v,24); 

while a<first do ( Bildschirm nach unten scrollen ) 

begin 

first:-firat-l; 
gotoxy( 1 , 1 ); 
insline; 
gotoxy ( 1 , 1 ); 

write( ast"[ firat]+ copy ( leer,1, 39-length(ast‘( firat))) ); 
end ' ( while ) 

Llsting: XCD 


10/11 ’90 PC 99 






















































I~PC-Programm 


( Bildschirm noch oben scrollen ] 


while a>£irst +21 do 
begin 

gotoxy( l,l); 
delline; 

£iret:=£irBt*l; 
gotoxy( 1 , 22 ); 

write(ast'[tirst+21 )+copy( leer,1,2*v+39-length(ast"[first+21)) )) 
gotoxy( 1 , 1 »a -first ); (while) 

inv; 

highvideo; 
if a»l then 

be gih ( versteckte Verzeichnisse werden arlln dargeetellc 1 

if pathAttr' (a)»255 then 
begin 

n:-LwStr+copy< path‘ 1 a),1,length(path 

reg.DS:'aeg(ß(1] ); { Segmentadreese ) 

reg.DX:°ofs(s(1)); | Offeetanteil der Addresse ) 

reg.AL: -0; ( Attribut einer Datei ermitteln ) 

rog. AH: =67; ( Funktion 43h ) 

rosdos (reg); 

pathAttr' ja] .•«reg.CX; 

repeat until VorhendenTest'true; 

end; ( if ) 

if (pathAttr'[a] and hidden)-hidden then textcolar(green); 
end; ( if ) 

write(ast'[a) »copy(leer, 3, 2*v+39-length(ast ' [ a )) )); 
spezialtaete:“£alse; 
hotkoy; 
writesearch; 

lf (not shiftL) and (not shift.R) 
then 
repeat 

toste :=' » : 

if keypressed then taste: •■readkey; 
if taste =10 then 


( Shifttastenabfrag 


( Spezialtaste ! ) 
( Scancode lesen ) 


{ if I 

( Shifttastenabfrage ) 


> then ( Search-Argument löschen ) 


begin 

toste :“readkey; 
spezialtaste:-true; 

end; 
hotkey; 

case ord(taste) of 

esc : if ( searchStro • 
begin 

oearchStr:“' 1 ; 
writesearch; 
taste:» 1 It - ; 

end; ( if ) 

bsp : if ( searchStro' ') then ( im Search-Argument einen ) 
begin I Buchstaben löschen ) 

deletefsearchStr,length(searchStr), 1 ) ; 

writesearch; 

taste'; 

end; 1 if ) 

end; ( case ) 

until (ord(toste) in [er ,esc, le,ri,up,dn,harne,_end,f 1.. f6,PgUp, 
PgDn,bsp,65..90,97..122)) or (shiftL) or (shiftR) or 
(taste in [•09\ - ]> 
eise delay(sequenz); ( bei Shifttastondruck warten ) 

gotoxyd, L*a -first); 

norv; ( normale Darstellung ) 

write( ast' [a)+copy( leer, 1,2*v+39-length(asf (a)) )) ; 
if ( (upcase(taste) in f■A'..•Z•]) or 

(laste in ('0 ; 9\’, 1 ' ]>) 
and (not spezialtaste) then 

begin ( SpeedSearch ) 

seorchStr:=searchStr+upcaBe( taste); 
vor: -true; 

lf (searchStro' + ') and (oearchStro' - 1 ) then 
lf taste in | ' + | then 

begin 

if taste»'then vor:=faise; 

if searchStro'' then dolote(searchStr, lengthf searchStr), 1 ); 

i:*aj 

end eise i:-1; 
repeat 

if vor then l:=i+l eise i:=i-l; 
str:=ast *( i J; 
ji=pos(searchStr,str); 
if (j<>0) then 
repeat 

if atr|]-lJo'-' then delete<str, j, 1) ; 
j:“poe(searchStr,str) ; 

until (stf[ j- 1 ]»'-■) or (j » 0 ); ( while ) 

until (i>nr) or (i«0) or ( (j<>0) and (str[j -1 ]» -’> ) ; 
if (i<“nr) and (j<>0> then a:-i j searchStr gefunden ) 

eise lf searchStro'' then 

delete(searchStr,length(oearchStr), 1); 
end eise searchStr:-''; ( SpeedSearch Ende ) 

writesearch; 

if (spezialtaste) or (ord(taste)«cr) then 

case ord(taste) of 


fl : hilfe2; 
f 2 : begin 

katalog(path'(a] ) ; 
window(21 -v,3,60»v,24); 
end; 

£3 : drucken; 

f4 : makedir; 

f5 : if a>l then remakedir; 
f6 : if a>l then renamedir; 

£7 : if n>l then AttrDir; 

f’.O : begin 

Parameter s»' A '; 
textattr :»toxtattralt; 
chdir<'\' ) ; 
window(l, 1,80,25) ; 
clrscr; 

for a:«l to 255 do pathAttr" [aj : »255; 
hauptfenster; ( rekursiver Aufruf 

halt; 
end; 

PgDn: if a<er.de-21 then e:=a+21 eise a:»ende; 

PgUp: if a>21 then a:=a-2l eise a: 


( Hilfefunktion ) 
{ Katalog des angezeigten Pfade ) 


( Unterverzeichnis liste drucken 


( Verzeichnisse neu einlesen ) 

( alte Farbwerte ) 
( ins Hauptverzeichnis ) 
{ normale Fenstergröße ) 


le 

dn 

home 


if a>l then a:-a-l eise ton(500,20); 
if a>l then a:»a-l eise ton(500,20); 
il a<ende then a:=a+l eise ton(500,20 ) ; 
if a<ende then a:=a+l eise ton(500,20); 
a: -1 ; 
end: a:=ende; 

r : if a=l then chdir('\') 


Llsfing; XCD 


eise chdir(copy(path"(a),l,lengthfpath'(a])-X>); 
end; ( case ) 

if shiftL then ( linke Shlfttaete gedrückt j 

if o>l then a:=a-l eise ton(500,20); 
lf shiftR then ( rechte Shifttaete gedrückt ) 

if o<ende then a:»a+l eise ton(500,20); 
until (ord(taste)-er) or ( (ord(taste)=eec) and (searchStr“‘') ); 
windov(l,1,80,25); 


move(buffl.videoPtr',4000); 
textbackground(black); 
textcolor(1ightgray); 
gotoxy(l,y); 
if ord(taste)oesc then 
begin 

write(altdir,’>'); 
textcolor(white); 
write('cd',path'|a),' 
end eise chdir(altdir); 
gotoxy(59,y); 
textattr:“toxtattralt; 
write(’(c)90 by Marc Kronberg'); 
a:’ioresult; 
if a-3 then 
begin 

writeln<''); 
writelnf' ' ) ; 
writeln('Fehler 
end; 

cursorAn; 
end; 


( alten Bildschirm restaurieren | 


( Prompt ausgeben 


( alte Farbwerte setzen 


{ Verzeichnis nicht mehr vorhanden ) 


Bitte Verzeichnisdatei aktualisieren. 1 ); 

( if 1 

( Cursor anschalten ) 
( hauptfenster | 


| Hauptprogramm ) 


{ alte Farbwerte merken ) 
( Control-Break unterbinden ) 
I Cursor ausschalton ) 
( aktuelles Verzeichnis merken ) 


begin 

new(path); 
new(ast ); 
newfpathAttr); 
textattralt:“textattr; 
checkBreak:=false; 
curnorAus; 
getdir( 0 ,altdir); 
leer:=■'; 
for y:»l to 80 do leer:»leer*• '; 
if whereY>l then yf-whereY-l eise y:-l; 
parometor:“ParamStr(1); 

if (ParamStrd)»'?') or (ParamCount>l) then hilfe; 
if (ParamCount-l) and (ParamStr(1)<>'A') and 
(ParamStr(1)<>'7') then cd_para; 
if (ParamCount=0) or (ParamStr(1 >■='A' ) then hauptfenster; 
toxtattr:“toxtattralt; ( alte Farbwerte setzen ) 

dispose(path); 
dispose( ast) ; 
dispose(pathAttr); 

end. ( Hauptprogramm ) 


( Programm. : XDEL 

( Version. : l.S 

( Programmart... : enduser-tool 

( Datura. : 07.OB.1990 

I 

( Zweck. : XDEL löscht das aktuelle Verzeichnis mit 

( allen Unterverzeichnissen 

( Copyright. : Marc Kronberq 

! 

( Autor. : Marc Kronberg 

Elsa-Brandström-Str.7 
3452 Bodenwerder 


Program XDEL; 
(SI-) 

uses don,crt; 


const leer = ' 

strich“ '- 

ESC “ 27; 

xf - 2j 


f •• ) 

AstlHnge bei grafischer Darstellung ) 


type 

var 


str 80 = string[ 80 ); 


AstListe,Ast 
Nr,LNr,y,ta 


arrayfO..255] of str80; 
byte; 


Q U 


K S 0 R T 


procedura quicksortflinks,rechts: word); 
var i,j : word; 

x,c : string[ 80 ); 

begin ( quicksort ) 

i:“links; ( untere Sortiergrenze ) 

j:-rechts; ( obere Sortiergrenze ) 

if j>i then ( Sortierung nicht abgeschlossen ) 

begin 

x; =Astliste( (links-trechts) div 2 J ; 
repeat 

whiio Astliste(i) < x do ii»i+X; 
while Astlieteij] > x do ji»j-l; 
lf i <» j then 
begin 

c:»Astliste(i); 

Astlisteli):»Aetliste(j1; 

Astliste[j]:=c; 
i:-i+i; 

end; 

until i>j; 

quicksort(links,j); ( rekursiver Aufruf ) 

Listing: XCD 
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qulcksort(i,rechts); ( rekursiver Aufruf ] 

ond; 

end; ( quicksort | 

I.....---) 

{ NEXTPFAD ) 

procedure nextPfad( IM : String ); 
var Srec : searchrec; 
a : chor; 

£ ! byte; 


procedure notepath; ( notepath ) 

bagin 

f ^doBerror; 

lf ((srec.attr and dircctory)=directory) and (SRec. nameo'. •) and 
(SRec.nameo 1 .. ' ) and (£<>18) then 
begin 
nr:«nr+l; 

AstLlete( Nr 1:«LW+ '\• *SRoc.Name; 
and; 

end <' ( notepath ) 


begin 

findFirst( lw+'\*. 4 ' 
notepath; 
i£ £<>28 then 
repeat 

findNext(SRec); 
notepath; 
until (f»l8); 
LNr:«LNr+l; 
end; 


( nextpfad ) 

,anyfile,SRoc); 

( evtl. gefundenes Verzeichnis notieren ) 
( kein Eintrag in der FAT gefunden ) 


| evtl, gefundenes Verzeichnis notieren ) 
( keine weiteren Einträge i 

( nextPfad ) 


1 ..— ... 

( SCANPATH 


I 

t 


procedure scanpath; 
vor a ! byte; 
begin 

for a1=0 to 255 do 
begin 

AstLiete[a) 1 ; 
Ast 1a |:■''; 
end; 


( sümtliche Verzeichnisse einlesen ) 
{ scanpath ) 


nr:«l; 

lnr:-l; 

getdir(0,A8tiiste[l)); 

if length(asr.liste[ t) )«3 then astliste! 1 ] : =eopy (aatLiutel 11 , 1 , 2 ) ; 
repeat nextpfad;AstListellnr 1 ) until lnr>nr; 

if nr>2 then quicksort(2,nr); ( gefundene Verzeichnisse sortieren ) 

ld; ( scanpath ) 


( ASTLOESCHEN ) 

procedure AstLosschen; ( Astlöschen | 

var i,error,x : byte; 

SRec : SearchRec; 

£ : file; 

str : otring; 

ch : char; 

begin 

for j:«nr downto 2 do 
begir. 

chdir(AstLlsteJiJ); 
gotoxy(l,y); 

writel•lösche •,Astiiete[i),•\ 1 >; 
x;*wherex; 

lindFirst(AstListefi)+•\*. * ■ , anyfile,SRac) ; 
error :-=doserror; 

if errorolB then ( kein Eintrag in der FAT gefunden ) 

begin 
repeat 

lf (SRoc. nameo- . • ) and (SRec. nameo ’ , , 1 ) and 
((SRec.attr and VolumelD)oVolumelD) then 
begin 

assign(f,SRoc.name); 

if (SRec.Attroarchlve) then setFattr(f.archive); 

eraae(f); 

gotoxy(x,y); 

writelSRoc.name); 

clreöl; 

if keypressed then 

if ord(reedkey)“esc then 
begin 

gotoxy(l,y>; 

write(•Programmabbruchl Es wurde nicht alles gelöscht.') 

clreol; 

writelnl''); 

textattr:=ta; ( alten Farbwert wiederherstellen I 

halt; 
ond; 

end; 

findNext(SRec); 
error:»doaerror; 

until (error-18); ( keine weiteren Einträge ] 

chdirl 

rmdir(Astliste( i]) ; 
gotoxy( 1 ,y); 

write<'lösche Verzeichnis •,Astlieteli)); 
clreoi; 
ond; 

gotoxyl 1 ,y 1 -(nr-i) ); 
if y-]-(or-i )>0 then writo(Ast[i]); 
end; 

gotoxy(l,y); 
highvideo; 

writel'Ast wurde gelöscht mit XDEI, (Vl.l) !•); 
clreol; 
writelnl ' ■ ) ; 

end; ( Astlöochen ) 


I...-. 

( K A K B A S T 


I 

) 


procedure makeAst; ( Stellt den Ast graphisch dar ) 

var tiefe : array(0..255] of byte; 
p,i :byte; 
taste:char; 

Listing: XCD 


function strl(a:byte):byte; 
var b, i: byte; 
begin 
i:-a; 

repeat i:=i+] until <i=Nr) or (tiefer! ]-1); 

if tiefe)a)=tie£e( 1 ] then 

begin 

if (tiefe|i )-tiefe[ 1 )) then b:-l eise b:=2 
end 

eine if (tiefe(i]-tiefe[1)) then b:»3 eise b:=4; 
ff Nr“a then 

if tiefe(a)»l then b:=2 eise b:-4; 
strl:*b; 
end; 

function str2(a, ■] :byte) :byte; 

var i,b:byte; 

begin 

repeat i:-itl until tj.efe( i )<=j; 
if tie£e(i)<j then b :-2 eise b:-l; 
if a*nr then b:= 2 ; 
atr 2 :«b; 
ond; 


( strl ) 


( ntrl ) 
( str2 1 


( str 2 ) 
t str3 ) 


function str3(a,j:byte):byte; 
var c,f,ul,u2,v:byte; 
begin 

if (tio£e[a)>tiefe[atl)) then £:=1 
eise 
begin 
c:=a; 

repeat c:«c+l until tiefe[c)<=tiefe[a]; 
ul:»0; 

v: “ 1; 

while v+l<j do 
begin 

if AatLi8te[a, ul)-'\ 1 then v:»v+l; 
ul:=ul+l; 
end; 
u2:-ul; 
repeat 
u 2 :=u 2 +l; 

until ( (u2>length<Aat!,iete[a])) or (AstListela, u2) = ' \ • )); 
if copylAstListefo],ul,u2-ul)•copy(AstListe(c),ul,u2-ul) 
then f:~2 eine f:=l; 

end; 

str3:=f; 

end; , str3 , 


( makeAst ) 


Tiefe notieren 


* copy(leer,l,xf); 
+ copy(leor,l,xf); 


begin 

for p:=l to nr do 
begin 

tiefe[pJ:« 1 ; 

for i:-1 to length(AstListelpl) do 

if AstListe[p,i]=‘V then tiefe|p]:«tiefe|p)+1; 

end; 

tiefe|p+ 1 ):=255; 
for p:=l to Nr do 
begin 

Astjp):-''; 

for i:»tiefe[l) to tiefefp] do 
begin 

if i”tiefe|.l] then 
case strl(p) of 

1: Afitlp] :»AntlpJ*'(■' copy(strich,1, xf); 

2: Ast(p) :«Ast[p)+' L' * copy(strich,l,xf); 

3: Ast[p):«Ast|p)r'' 

4: Ast(p)!«Ast|p] + ' 
end; (case) 
lf (i<tiefe(p)) and (i>tie£e[lj) then 
case utr 2 (p,i) of 

1: Aet(pl:-Ast[p)+'1' + copylleer,1,xf); 

2: ABt(p):«Aetjpjt 1 + copy(leer,1,xf); 

and; (case) 

if (i»tiefe[p)) and (i>tle£e[l)) then 
case str3(p,i) of 

1: Ast(p|:«Ast{p)+' L- + copy(strich,1,xf); 

2: Aat!t>i:*Ast!{i3>' (- + copy (strich, 1 , xf) ; 

end; (case) 

end; 

i.:=length(AstLiate[p) ); 

repeat i:=i-l until <(i= 0 > or (AstListe(p,i)=•\•)); 
if length(ABtLiBte[1))>2 then 

if nr-1 then Astfp) :-Ast(pl*' L ‘ »-copy(strich, l,xf); 

Astlpl: -A8t|p)+-copy(A8tLiote[p) , i+1, length(AstListe[p] )-i); 
end; 

£or p:=3 to Nr do delete(Ast[p),1,1+xf); 
end; ( MakeAst 


procedure main; ( Hauptprozedur ) 

var i : byte; 

ch : char; 
begin 

tai-textattr; 
lowvideo; 
gotoxy(59,wherey- 1 ) ; 
writelnl ' (c)90 by Marc Kronberg'); 

scanpath; ( nachfolgende Unterverzeichniase einlesen ) 

i :*1; 

highvideo; 

makeant; f Daumetruktur aufbauen ) 

for i:=1 to nr do writeln(ast[i)); [ Ast auf Bildschirm ausgeben ) 

lowvideo; 

writelnl wollen Sie den Aat löschen? J/N'>; 
y:»whereY-lf 
repeat ch:=readkey 

until (ch in !'j', '.r , 'n', N 1 ]) or (ord(ch) =ESC); 
if ch in I'j'.'J') then AstLoeschen; 

lextottr:=to; ( alten Farbwert Wiederherstollen ) 

end; 


( Farbwert merken ) 


begin 

CheckBreuk:=ta1se; 
main; 
end. 


Listing: XCD 


( Hauptprogramm ) 
( ‘C abfangen ) 


{ Hauptprogramm ) 
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I—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist eine Einrichtung für 
alle Leser, die in irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Produkten, Program¬ 
mierproblemen oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir bemüht, alle Leserfra¬ 
gen zu beantworten. Doch haben Sie bitte Ver¬ 
ständnis, daß wir nicht alle eingehenden Briefe 
persönlich beantworten können. Oft erreichen uns 
mehrere Briefe zum gleichen Thema, einer davon 
wird dann stellvertretend für alle in unserer Zeit¬ 
schrift beantwortet. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich vor, Leserzuschrif¬ 
ten in gekürzter Form wiederzugeben 


CPC 


Verstümmelte Zeichen 

Ich besitze seit ein paar Jah¬ 
ren einen CPC 6128 und be¬ 
nutze ihn regelmäßig. Doch 
nun, seit ein paar Wochen, 
spielt mein Drucker mit der 
Textverarbeitung “Texto- 
mat“ verrückt. Tests beim 
Händler haben einen ein¬ 
wandfreien Drucker festge¬ 
stellt. Was kann das sein ? 

Wilhelm Braak, 
Lübeck 

Bei Ihnen wird aller Wahr¬ 
scheinlichkeit nach der 
Druckerausgang defekt sein 
oder der dafür zuständige 
Port-Baustein. Eine genaue 
Fehleranalyse kann aber nur 
der Fachhändler geben. Bitte 
wenden Sie sich an ihn. 

(Red.) 


CPC und PC 


Datenübertragung CPC 
6128 und AT-PC 

Ich besitze einen CPC 6128. 
Zusätzlich habe ich mir im 
letzten Jahr einen IBM- 
A T-kompatiblen Rechner ge¬ 
kauft, da nur auf diesem die 
Programme laufen, die ich 
für mein Studium benötige. 
Eigentlich wollte ich meinen 
CPC verkaufen, jedoch habe 
ich bis heute keine Möglich¬ 
keit gefunden, die Texte und 
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Pascal-Programme auf den 
A T z.u übertragen. 

Sven Utcke, 
Hamburg 

Zu dem Thema “Datenüber¬ 
tragung CPC-PC“ haben wir 
schon einiges beschrieben. 
Zum Beispiel in unserem 
Sonderheft 8/90. Die Be¬ 
schreibung behandelt zwar 
den Datenaustausch mit ei¬ 
nem PC-XT, aber sicher hat 
ein Bekannter von Ihnen ei¬ 
nen XT, der Ihnen eine Dis¬ 
kette im CP/M-Format (180 
kByte) formatiert. 

(Red.) 


CPC 


Betreff: Testbericht Dob- 
bertin HD-20, PCI 8/9 
1990, Seite 26-27 

Hiermit möchten wir Ihnen 
milteilen, daß einige Pro¬ 
gramme nicht mit der Dob- 
bertin-Festplatte ohne Ände¬ 
rungen lauffähig sind. Als 
Beispiele seien hier ConText, 
Artworx, The Archivator und 
OCP A rt Studio genannt. Bei 
Artworx läßt sich das Pro¬ 
blem leicht umgehen, indem 
man als erste Zeile den Be¬ 
fehl Isiow einfügt. Bei Con¬ 
Text wird es schon schwieri¬ 
ger, aber auch hier liegt uns 
eine Anpassung vor. Diese 
wird in unserer Clubzeit¬ 
schrift CPC-Power 3/90 
(5.9.90) veröffentlicht. In¬ 


teressenten können diese ge¬ 
gen 4, — DM als Verrech¬ 
nungsscheck oder in bar bei 
uns anfordern. 

Wir arbeiten aber zur Zeit 
auch an Lösungen zum OCP 
Art Studio und dem Archi¬ 
vator. 

Außerdem werden wir dem¬ 
nächst eine Serie veröffentli¬ 
chen, wie man mehr aus 
ConText machen kann (indi¬ 
viduelle Anpassung, viele 
Extras). 

Noch ein Nachtrag zu unse¬ 
rem Leserbrief 8-9/90: Wir 

können keine Programme 
komplett überarbeiten oder 
gar neu schreiben. Aller- 
höchstens kleinere Änderun¬ 
gen in BASIC-Programmen, 
nicht jedoch in Maschinen¬ 
code. Das ist zu zeitaufwen¬ 
dig! Sendungen ohne Rück¬ 
porto werden unfrei wieder 
zurückgesandt! 

Disketten oder ähnliche Ma¬ 
terialien sollten außerdem 
möglichst per Einschreiben 
an uns gesandt werden (si¬ 
cherheitshalber) ! 

CPC-User-Club Unicom 
(ehemals Colonia), 
Mike Behrendt. 

Im Vogelsang 17, 
5000 Köln 50 


CPC 


Kleiner Fehler 

Bei der Laufwerksumschal- 
tung von ConText (Heft 8/9 
'90) hat sich ein kleiner Feh¬ 
ler eingeschlichen. Aus der 
Variablen “dtiv $“ wurde 
teilweise “drive$“, dadurch 
erfährt Zeile 240 und damit 
auch der Benutzer nicht, 
wann auf Laufwerk B ge¬ 
schaltet ist. 

Ranisebner Peter, 
Bregenz 


CPC 


Ersatzteile 

Ich besitze einen CPC 6128. 
In letzter Zeit bleibt mir die 
Leertaste (SPACE), wenn ich 
nicht genau in der Mitte 
drücke, hängen. Können Sie 
mir mit teilen, wo ich Ersatz¬ 
teile bekommen kann? 

Erhard Patzelt, 
Stuttgart 


Reparaturen und Ersatzteile 
erhalten Sie bei folgender 
Anschrift: 

Telub Bitronic, 
Strahlenberger Weg 16, 
6000 Frankfurt 70 
Tel. :069/605014-0 

(Red.) 


|_ CPC_1 

C 64-Datenrecorder 
am CPC 

Ich besitze einen CPC 6128 
mit dem Drucker STAR LC 
10. Mein jüngerer Bruder 
hat einen CPC 464 und seine 
gesamte Software auf Kas¬ 
sette. Da die meisten Daten¬ 
recorder doch ein wenig teu¬ 
er sind, möchte ich fragen, 
ob es möglich ist, den preis¬ 
werten Commodore C64-Da- 
tenrecorder an meinen CPC 
6128 anzuschließen? 

Oliver Schott, 
Gisingen 

Eine Frage, die uns schon oft 
gestellt wurde, kann auch 
heute nur mit “Nein“ beant¬ 
wortet werden. 

Der C64-Datenrecorder setzt 
zur Datensicherung ein an¬ 
deres Vefahren ein, so daß 
eine Verwendung für den 
CPC völlig ausgeschlossen 
ist. 

(Red.) 


CPC 


Programme länger als 
Speicher? 

Ich bin seit einiger Zeit Besit¬ 
zer eines CPC 664 Personal¬ 
computers und verfolge mit 
Interesse die Veröffentli¬ 
chungen in Ihrer Zeitschrift. 
Ich habe auch bereits einige 
Programme (Listings) selbst 
abgetippt und bin dabei je¬ 
doch auf Probleme gestoßen. 
Bei einigen Listings ist es mir 
nicht gelungen, das gesamte 
Programm vollständig abzu¬ 
tippen. Deshalb möchte ich 
Sie hiermit fragen, ob bei 
den angegebenen Program¬ 
men feststeht, daß die Pro¬ 
grammlänge nicht die Spei¬ 
cherkapazität des CPC über¬ 
schreitet? 

Gibt es vielleicht eine Mög¬ 
lichkeit, ein langes Pro¬ 
gramm in zwei Teilschritten 


m 


























abzutippen und es zu spei¬ 
chern ? 

Weiterhin möchte ich wissen, 
ob die Möglichkeit besteht, 
mir eine Übersicht über die 
bisher veröffentlichten Pro¬ 
gramme (beziehungsweise 
DA TABOXEN) zu geben ? 

Winfried Siemers, 
Münster 

Längere Programme auf ei¬ 
nen Schlag abzutippen, ist 
oftmals unmöglich. Deswe¬ 
gen bieten alle Computer die 
Möglichkeit, abgespeicherte 
Programmteile miteinander 
zu verbinden. Beim CPC 
heißt der Befehl 

MERGE "Programm.BAS“. 

Programme, die bei uns ver¬ 
öffentlicht werden, bestehen 
oftmals aus sogenannten Da¬ 
taladern, die ein neues Pro¬ 
gramm in der computcreige- 
nen Sprache, dem Maschi¬ 
nencode, erzeugen. 

Längere Programme haben 
oft mehrere Datalader, so 
daß der Eindruck entsteht, 
das Programm paßt nicht in 
den Speicher, aber die er¬ 
zeugten Maschinenprogram¬ 
me sind im abgespeicherten 
Zustand wesentlich kürzer 
als die Datalader. 

Welche Programme veröf¬ 
fentlicht wurden, können Sie 
anhand unserer Jahresüber¬ 
sicht entnehmen, die sich in 
jeder letzten Jahresausgabe 
befindet. Die letzte Über¬ 
sicht finden Sie in der Ausga¬ 
be 1/90. Und natürlich fin¬ 
den Sie die Programme, Tips 
und Tricks auch auf den DA- 
TABOXEN wieder. 

(Red.) 
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Alte Programme 

Ich habe Ihr Sonderheft 5/87 
bekommen und habe auf den 
Seiten 65/66 einen interes¬ 
santen Bericht über ein Spiel 
gelesen. Das Programm 
nennt sich “They stole a Mil¬ 
lion“. Nun ergibt sich das 
Problem der Beschaffung. 
Auch mein CPC-Bekannlen- 
kreis konnte mir nicht weiter¬ 
helfen. Nun möchte ich mich 
an Sie wenden und um Rat 


fragen, wo und bei wem ich 
das Spiel bekommen kann. 

Uwe Hunsicker, 
Blieskastel 

Das von Ihnen gesuchte 
Spiel werden Sie sicherlich 
nicht mehr im Handel be¬ 
kommen, da Software, ins¬ 
besondere Spiele, schnell an 
Aktualität verlieren und rela¬ 
tiv schnell vom Markt ver¬ 
schwinden. 

Altere Software bekommen 
Sie am besten über Kleinan¬ 
zeigen. Ansonsten empfeh¬ 
len wir Ihnen die diversen 
Anzeigen in der PC Am- 
strad. 

(Red.) 
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Besseres Aussehen 

Nach dem Starten von Break- 
thru störte es mich, daß of¬ 
fensichtlich kein Vorspann 
durch das Programm selber 
zur Verfügung gestellt wird. 
Während des Ladevorgangs 
der Unterprogramme (MC- 
Code) ist immer längere Zeit 
die eigene Eingabe auf dem 
Bildschirm sichtbar. Um 
dies zu ändern, kann man 
wie folgt Vorgehen: 

Das Hauptprogramm von 
Breakthru laden, die Zeiten 
450 bis 580 nochmals ab 
2700 in Zehnerschritten ein¬ 
geben und in Zeile 

2770 if test(x,y)<>9 then 
2800 2830 x=x+l:goto 2810:else 
clsrrun 

105 on break gosub 2600 
2600 save"breakthru.pie»,b, 
&c000,4 000 
eingeben. 

Dann das Programm Break¬ 
thru starten und nach Druck 
auf die Taste fS] für “Start“ 
die ersten Wechsel des blau¬ 
en oder grünen “Bal¬ 
les “/Punktes abwarten. Wird 
nun die Taste [Esc] mehr¬ 
mals gedrückt, legt das Pro¬ 
gramm nach einer etwas län¬ 
geren Wartezeit ein Bild mit 
Namen breakthru.pic“ auf 
Diskette ab. 

Es wäre gut, eine Extra-Dis¬ 
kette mit den Files von 
Breakthru anzulegen (Konfi¬ 
guration: Schneider 6128 
mit Farbmonitor und neben 
dem eingebauten 3-Zoll- 
Laufwerk mit 5 1/4-Zoll- 
Laufwerk von FSE/Kaisers¬ 
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lautern (sehr empfehlens¬ 
wert!!)). 

Danach wird der Schneider 
6128 mit Dreifingergriff 
oder Aus-/Einschalten des 
Netzschalters zurückgesetzt, 
das Hauptprogramm break¬ 
thru.bas mit 
load"breakthru.bas" 
geladen und folgende Zeilen 
ergänzt: 

107 mode 0: border 0: f or p= 0 to 
9: read i:p(p) = i:ink p, i: 
next: gosub 2560:gosub 2730 
2560 mode 0: load 
"breakthru.pic",&c000:return 
2830 x=x+l:goto 2810:eise 
cls:run 

102 on break goto 130 

Die Zeile 102 wird neu in das 
Programm eingefügt. Diese 
Befehle bewirken, daß nach 
dem Anzeigen des eben ge- 
spei cherten Bi Ides/Titel- 

Screens und Drücken der Es- 
cape-Taste das Programm 
weiter abgearbeitet wird. 

Um nach Beendigung des 
Spiels das Programm Break¬ 
thru gleich wieder starten zu 
können,, sind folgende Zei¬ 
len in 790 und 800 zu er¬ 
gänzen: 

790 seadr=&3AFC: p=2:els:lo- 
cate 1,13: input"Taste l=run/ 
0=end ",w$':i? v$="0" then end 
eise run 

800 scadr=&3B0C: p=2:cls: lo- 
cate 7,7: input"Taste 

l=run/0=end ",w$: if w$="l" 
then run eise end 

Damit der Titel Breakthru 
besser zu Geltung kommt, 
sollte man noch in der Zeile 
2760 den Wert 268 durch 
258 ersetzen. Damit wird der 
Titel etwas tiefer gezeichnet 
als im ursprünglichen Li- 
sting angegeben. - Dies nur, 
damit der Hintergrund/die 
Umrandung noch mehr zur 
Geltung kommt und den vor¬ 
handenen Effekt verstärkt. 
Noch zwei Hinweise: 

Eine weitere Ergänzung des 
Hauptprogramms von Break¬ 
thru, eine Unterteilung der 
Zeilen in zum Beispiel 790, 
800 (oder Einrichtung weite¬ 
rer Zeilen) führt auf meinem 
Schneider unweigerlich zum 
Absturz und sollte deshalb 
möglichst vermieden wer¬ 
den. Warten Sie bitte jeweils, 
bis der Titel Breakthru fertig 
gezeichnet wurde und das 
Bild anfängt zu sc rollen! 

Hans Sivkovich, 
Hamburg 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 
JOYCE-Zubehör: 

Farbband 8256/8512 (Nylon) 12,90 


dto. 5 Stück 59,90 

3“-Markendisketten 10 St. 59,90 
Farbband 9512 (Nylon) 18,95 
Typenräder 9512 + SD15 25,00 
Diskettenbox f. 60 Disk. 15,50 
Diskettenbox f. 100 Disk. 18,95 
Druckerverlängerung 1,5 m 39.50 
Centronics-Schnittstelle 179,00 
Staubschutzhaube Tastatur 16.95 
Staubschutzhaube Drucker 19,75 
Staubschutzhaube Monitor 32,85 
Staubschutzhauben 3er Set 64,50 
Transferprogramm 55,00 

CP/M -DOS (auch für CPC) 
PC-Zubehör: 

Abdeckhaube Tastatur 
1512/1640 16,95 

Abdeckhaube Monitor 
1512/1640 39,50 

Laufwerk 3 1/2" int. 1512/1640 220,00 
Laufwerk 3 1/2“ ext. 1512/1640 398,00 
Laufwerk 5 1/4" ext. 1512/1640 398,00 
51/4"-Reinigungsdiskette 6.95 
31/2"-Reinigungsdiskette 9,95 
Monitorverlängerung 1512 59,75 

Tastaturverlängerung 
1512/1640 12,00 

Diskettenbox f. 100 5 1/4“-Disk. 16,95 


Diskettenbox f. 50 5 1/4"-Disk. 15,50 

Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto. 

Lieferung per Nachnahme oder Voraus¬ 
kasse (Versandkostenpauschale 4,50 DM 
bei Vorauskasse, 6,50 DM bei Nachnahme) 

Kosmalla & Partner 

Datenverarbeitung GmbH 
Maudacher Straße 215 
6700 Ludwigshafen am Rhein 
Tel.: 0621-55 95 58 
Fax: 0621-55 95 03 


Welt¬ 

hunger. 

Ernte¬ 

dank. 


Die Deutsche Welthungerhilfe 
unterstützt Selbsthilfe-Projekte 
von Bauern der Dritten Welt, 
damit für sie Ernährung aus 
eigener Kraft möglich wird. 
Und sie hilft den Bauern, 
Natur und Umwelt als Lebens¬ 
grundlage zu erhalten, damit 
Entwicklung auch Zukunft hat. 

| DEUTSCHE 
$ WELTHUNGERHILFE 

Spendenkonto Sparkasse Bonn: 111 

Adenoueralloo 134 ■ 5300 Bonn 1 Tel.: 02 28/22 88 0 
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Software ade! 

Reset-Taster am PCW 

Jeder, der einmal auf seinem PCW programmiert hat, wird sich die Haare 
gerauft haben, wenn sich der Rechner mal wieder vom System verabschie¬ 
det hat. Das Ausschalten des Computers und somit das Löschen der RAM- 
Disk ist die zwingende Folge. Der Ruf nach einem Reset-Taster wird daher 
immer lauter. Mit einem Kostenaufwand von nicht einmal fünf DM läßt sich 
ein solcher Reset-Taster realisieren, bei dem die RAM-Disk als Krönung mit 
einem gepatchten CP/M erhalten bleibt. 


Um diesen Reset-Taster zu bauen, muß 
man erst einmal wissen, wie ein hard¬ 
waremäßiger Reset vom Rechner aus¬ 
geführt wird. 

Dazu betrachtet man am besten Abbil¬ 
dung 1. Dort sieht man links den Wi¬ 
derstand RI06 und darunter den Kon¬ 
densator C124. Wenn der Rechner nun 
angeschaltet wird, lädt sich der Kon¬ 
densator über R106 langsam auf. Nach 
einer Zeit von ungefähr 0,4 Sekunden 
ist der Kondensator auf drei Volt auf¬ 
geladen, was den Rechner dazu veran¬ 
laßt, seinen Betrieb aufzunehmen. Der 
Reset, den er bis dahin ausgeführt hat, 
ist nun beendet. Um also einen künstli¬ 
chen Reset zu erzeugen, muß man den 
Kondensator entladen. Dabei gibt es je¬ 
doch noch ein Problem, das nicht gan¬ 
zunerheblich ist: Während der Rechner 
einen Reset ausführt, vergißt er, die 
Speicherchips mit den lebensnotwendi¬ 
gen Refresh-Impulsen zu versorgen. 


Abbildung 1: Die Schaltung auf einen Blick 


Die Folge ist ein Löschen der RAM- 
Disk, was aber nicht Sinn und Zweck 
des Tasters darstellen soll. Um diesen 
Effekt zu verhindern, wurde die kleine 
Schaltung entworfen, die bei Betäti¬ 
gung des Tasters einen Negativimpuls 
von 0,1 Millisekunden an den Konden¬ 
sator ausgibt. Diese Zeit entspricht den 
notwendigen Anforderungen: 

• C124 wird soweit entladen, daß der 
Rechner einen Reset ausführt, und 

• die Reset-Zeit ist so kurz, daß die 
Speicherchips die Zeit auch ohne das 
Refresh-Signal verlustlos überstehen. 

Die Schaltung besteht im wesentlichen 
aus dem IC SN 74121. Dabei handelt es 
sich um ein nicht retriggerbares Mono¬ 
flop. Dieses IC wurde so beschältet, 
daß es bei einer negativen Schaltflanke 
an Pin 3 und 4 einen negativen Impuls 
an Pin 1 ausgibt. Durch den Pullup-Wi- 
derstand haben die Pins 3 und 4 norma¬ 


lerweise einen Highpegel, also etwa 
fünf Volt. Ein Taster, der gegen Masse 
geschaltet ist, bewirkt einen Wechsel 
des Pegels auf Low. Dabei entsteht die 
negative Schaltflanke, die vom IC als 
Signal ausgewertet wird. Über dem Ta¬ 
ster befindet sich ein 100-nF-Konden- 
sator, der das Kontaktprellen des Ta¬ 
sters glättet. Diese Maßnahme ist 
wahrscheinlich nicht direkt nötig, we¬ 
gen einer zuverlässigen Funktion des 
Tasters empfiehlt sie sich jedoch. Über 
den Pins 10, 11 und 14 liegen die für 
die Länge des erzeugten Impulses ver¬ 
antwortlichen Bauelemente, ein Wi¬ 
derstand von 3,3 kOhm und ein Kon¬ 
densator von 47 nF. Laut Datenbuch 
beträgt die Länge des Impulses 
0.7*C*R (C in F und R in Ohm). Diese 
Werte für Kondensator und Wider¬ 
stand sollten unbedingt eingehalten 
werden, damit der Impuls den Erfor¬ 
dernissen des Rechners entspricht. Die 
eigentliche Verbindung zum PCW wird 
nun über Pin 1 hergestellt, an dem der 
Negativimpuls zur Verfügung steht. 

Der Nachbau 

Als erstes wird das Netzkabel aus der 
Steckdose gezogen. Danach werden 
die sechs Schrauben auf der Rückseite 
des Gerätes mit einem langen Kreuz¬ 
schlitzschraubendreher entfernt, zwei 
lange oben links und rechts, zwei dicke 
unten links und rechts und zwei kurze 
in der Mitte. Die Monitorrückwand 
läßt sich nun problemlos abziehen. 
Dem Betrachter müßte sich nun folgen¬ 
des Bild bieten: links sitzen die beiden 
Diskettenlaufwerke, rechts daneben 
der Blechkasten mit dem eigentlichen 
Rechner, unten ist die Monitorplatine 
eingeschoben. 

Zum Einbau des Tasters muß der 
Blechkasten mit dem Rechner heraus¬ 
gezogen werden. Dazu müssen zu¬ 
nächst die Verbindungen zum restli¬ 
chen Gerät getrennt werden. Dabei 
handelt es sich um die Stromversor¬ 
gung der Platine, das Tastatur- und das 
Monitorkabel, drei Massekabel und 
das Datenkabel zu den Floppys. Die 
drei Massekabel sind mit Schrauben 
befestigt, die gelöst werden müssen. 

Die Stromversorgung und das 
Tastatur- beziehungsweise Monitorka¬ 
bel sind lediglich gesteckt, so daß diese 
problemlos von der Platine abgezogen 
werden können. Der Kasten kann nun 
aus seiner Position herausgezogen und 
durch Entfernen der restlichen kleinen 
Blechschrauben geöffnet werden. Die 
untere Abdeckung braucht nicht abge¬ 
nommen zu werden, da alle Arbeiten 
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auf der Oberseite der nun offenliegen¬ 
den Platine vorgenommen werden. 
Nachdem der Lötkolben aufgewärmt 
wurde, kann man beginnen, die Schal¬ 
tung gemäß Abbildung 1 nachzubauen. 
Da die Schaltung aus extrem wenigen 
Bauteilen besteht, kann man sie der 
Einfachheit halber mit etwas Geschick 
direkt auf dem Chip aufbauen. Um aus¬ 
reichende Kontaktflächen zu erhalten, 
werden zunächst alle 14 Pins des IC um 
90 Grad zur Seite weggebogen. Diese 
Methode hat den Vorteil, daß man die 
Schaltung später auf der Platine durch 
den Bauch des IC festkleben kann. Der 
3k3-Widerstand muß an Pin 14 und 11 
gelötet werden. Dazu biegt man einen 
Anschlußdraht des Widerstandes um 
180 Grad, so daß er parallel zu dem an¬ 
deren Draht erscheint. Die Drähte wer¬ 
den nun zirka 5 mm vom Widerstands¬ 
ende in gleicher Höhe abgekniffen. 
Der Widerstand wird danach bündig an 
das IC angelötet. Der 47-nF-Konden- 
sator wird in ähnlicher Weise befestigt. 
Nachdem auch seine Enden gekürzt 
wurden, werden sie an Pin 11 und an 
Pin 10 festgelötet. Mit einem der ab¬ 
gekniffenen Drähte wird eine Verbin¬ 
dung von Pin 14 zu Pin 5 hergestellt. 
Es ist darauf zu achten, daß der Draht 
direkt über das IC verläuft, damit keine 
Kurzschlüsse entstehen können. Der 
lOk-Widerstand wird nun so wie der 
3k3-Widerstand gebogen und gekürzt. 
Er muß nun an Pin 3 und 5 gelötet wer¬ 
den, wobei ein Drahtende dazu ver¬ 
wendet werden kann, auch die Verbin¬ 
dung von Pin 3 zu Pin 4 herzustellen. 
Ist all dies geschehen und sind even¬ 
tuelle Fehler beseitigt, lötet man eine 
Ader eines zweiadrigen, zirka 50 cm 
langen Kabels an Pin 3 oder 4 und die 
andere Ader an Pin 7. Das andere Ende 
des Kabels wird an die Fahnen des Ta¬ 
sters gelötet, wobei auch der 100-nF- 
Kondensator an den Taster gelötet 
wird. Damit ist die eigentliche Schal¬ 
tung fertig, und man kann die Verbin¬ 
dung zur Platine hersteilen. 

Zunächst muß man sich auf der Platine 
den Widerstand R106, die Diode D101 
und den Kondensator CI24 suchen. An 
der Kathode der Diode (die Seite mit 
dem Balken) kann die Versorgungs¬ 
spannung von +5 Volt für das IC abge¬ 
griffen werden. Es muß also ein Kabel 
von diesem Punkt zu Pin 14 des ICs ge¬ 
legt werden. Die Masseverbindung er¬ 
folgt über Pin 7 zu einem Massepunkt 
der Platine. Mögliche Stellen sind da¬ 
bei zum Beispiel die großen Masseflä¬ 
chen am Rand der Platine oder ein 
Durchkontaktierungspunkt der von 
CI24 ausgehenden Masseleitung. Bei 
der nun folgenden letzten Lötaktion 


muß ein Kabel von Pin 1 des IC zu der 
Anode von Dl01 gelegt werden. Sind 
die Arbeiten abgeschlossen und alle 
Kontakte nochmals überprüft worden, 
kann der Chip mit der darauf aufgebau¬ 
ten Schaltung auf die Platine geklebt 
werden. Geeignet dazu sind alle Stel¬ 
len, die keine Bauteile besitzen. Mit 
noch etwas Klebeband kann die Schal¬ 
tung zusätzlich fixiert und gegen unge¬ 
wollte Kontakte mit der restlichen Pla¬ 
tine oder dem Metallgehäuse geschützt 
werden. Das Gehäuse kann nun wieder 
geschlossen werden. 

Über den Ort der Befestigung des Ta¬ 
sters kann jeder selbst entscheiden. 
Dort, wo man ihn hinhaben möchte, 
muß man dann nur noch ein Loch mit 
einem dem Taster entsprechenden 
Durchmesser bohren. 

Die Software 

Eine kleine Änderung des Betriebssy¬ 
stems wird notwendig, wenn man er¬ 
reichen will, daß bei einem Reset die 
RAM-Disk nicht gelöscht wird. 

Zu diesem Zweck wird nach dem Ver¬ 
fahren von Stefan Cordes aus dem 
PCW-Sonderheft 3 vorgegangen. Zu¬ 
erst muß SID.COM geladen werden. 
Danach wird das Betriebssystem durch 
Eingabe von TJ14GCPM3.EMS’ in 
den Arbeitsspeicher geholt, um die für 
das Löschen der RAM-Disk verant¬ 
wortlichen Bytes zu ändern. Dies ge¬ 
schieht zuerst durch Eingabe von 
s6C86. Es erscheint dann auf dem Bild¬ 
schirm die Buchstabenkombination 
CD. Im folgenden sind statt der auf 


dem Bildschirm erscheinenden hexade¬ 
zimalen Zahlen die Werte 3e, 03, cd, 
51, fc, 3a, 01, 40, fe, 10. 38, 10, 3e, 
e5, 32, 00, 40, 21,00, 40, 11,01. 40, 
01, ff, lf, ed. bO, af, cd, 51, fc, 00 ein¬ 
zugeben, wobei statt der Kommas zwi¬ 
schen den Zahlen natürlich jeweils RE¬ 
TURN zu drücken ist. Jetzt müßte auf 
dem Bildschirm 6CA7 CD stehen. Ist 
dies der Fall, ist. (Punkt) + RETURN 
einzugeben. Danach kann mit dem 
Kommando wJ14GCPM3.EMS (RE¬ 
TURN) das geänderte Betriebssystem 
zurück auf die Diskette geschrieben 
werden. Die Änderung ist vollbracht. 
Bei Drücken des Reset-Tasters müßte 
der PCW nun auch aus dem tiefsten Sy¬ 
stemabsturz hochbooten, wobei die 
RAM-Disk mit dem geänderten CP/M 
erhalten bleibt. 

Die benötigten elektronischen Bauele¬ 
mente sollten Sie bei Ihrem Elektronik¬ 
fachhändler ohne Probleme beziehen 
können. Befindet sich in Ihrer Nähe 
keiner, können Sie einen kompletten 
Teilesatz bei: PCW Platinenservice, 
Kersting Kröger Graßhoff GbR, Roe- 
soll 36, 2305 Heikendorf für 10 DM 
plus Versandkosten bestellen. 

(Bernhard Graßhoff/rs) 


Achtung! Die in diesem Artikel vorgestelhen Änderun¬ 
gen an Ihrem Gerät werden von Ihnen auf eigene Ver¬ 
antwortung vorgenommen. Für eventuell auftretende 
Fehler, die sich aus unsachgemäßer Handhabung oder 
aber aus Fehlern in der Beschreibung und den Abbil¬ 
dungen ergeben, können weder Autor noch Verlag die 
Haftung übernehmen. 

Dem weniger versierten Anwender empfehlen wir da¬ 
her, den Umbau von einem Fachmann durchführen zu 
lassen, da jeder Fehler zu einem nicht reparierbaren 
Computerdefekt führen kann. 



Abbildung 2: Anhand dieser Abbildung dürfte es kein Problem sein, die Ixige von Dl01 und RI06 zu 
ermitteln 
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Vom Bildsch irm ; 

Vom Bildschirm aufs Paoi* r 


Vom Bildschirm aufs Papier 

Variable Hardcopy mit VARIO 

Schnell mal einen Abdruck des Bildschirms erstellen, das soeben ermittelte 
Ergebnis oder das mit Mühe erstellte grafische Abbild des Speichers /u 
Papier bringen, all das wird in der Terminologie der Computer-Sprache 
allgemein als TIardcopy’ bezeichnet. Für den Benutzer des JOYCE (PCW 
8256/8512) ist dies nichts Neues, verfügt doch das Betriebssystem und hier 
speziell der Druckertreiber über eine Programm-Routine, mit der jederzeit 
der Bildschirmspeicher ausgelesen und über den PCW-Drucker ausgedruckt 
werden kann. Damit sind wir aber auch schon beim eigentlichen Problem 
dieser PCW-internen Hardcopy-Funktion; sie funktioniert ausschließlich 
auf dem PCW-Drucker. 


Das Programm VARIO ermöglicht 
auch dem nicht so erfahrenen Benutzer 
des PCW. zukünftig auf (fast) allen 
Druckern Hardcopies zu fertigen. 
Erreicht wird dies durch ein besonde¬ 
res Installationskonzept für einen neu¬ 
en Druckertreiber. Eine externe Steu¬ 
er-Datei (Profil-Datei) enthält alle für 
die Kontrolle des Druckers benötigten 
Kommandos und wird von VARIO ein¬ 
gelesen und bei der Installation berück¬ 
sichtigt. 

Durch besondere Schlüsselwörter teilt 
der Benutzer dem Programm mit, wel¬ 
chem Zweck eine Steuersequenz dient 
beziehungsweise welchen Ausgang 
oder Drucker er benutzen möchte. Da¬ 
mit wird es möglich, VARIO für fast 
jeden Drucker zu installieren, der in 
irgendeiner Form durch spezielle Steu¬ 
erzeichen vom Computer kontrolliert 
werden kann. 


Darfs noch etwas mehr sein ? 

• Die Extras von VARIO: 

Da wäre zunächst einmal die Möglich¬ 
keit einer Text-Hardcopy, das bedeu¬ 
tet, der Inhalt des Bildschirms wird 
nicht, wie üblich, als Grafik ausge¬ 
druckt, sondern wird als reiner Text¬ 
ausdruck aufs Papier gebracht. Da der 
PCW von Haus aus als Text-System 
konzipiert wurde, bietet sich eine sol¬ 
che Form des Bildschirmausdrucks ge¬ 
radezu an. zumal diese Text-Hardcopy 
um einiges schneller abläuft als eine 
'normale' Grafik-Hardcopy. 

Ebenso kann es vorteilhaft sein, den 
Ausdruck seinen individuellen Vorstel¬ 
lungen von Größe und Richtung anzu¬ 
passen. VARIO stellt zwei Druckrich¬ 
tungen zur Verfügung; 'normal’, also 
direkt vom Bildschirm aufs Papier. 


oder um 90 Grad gedreht. Vergröße¬ 
rungen bis zum 4fachen der Original¬ 
größe sind möglich, sowohl in horizon¬ 
taler als auch in vertikaler Richtung. 
Als weiteren Pluspunkt kann VARIO 
für sich in Anspruch nehmen, über die 
Profil-Datei für alle verfügbaren Aus¬ 
gabe-Kanäle (Ports) installiert zu wer¬ 
den, also entweder für den parallelen 
Centronics-Port (CEN), die serielle 
Schnittstelle (SIO) oder die interne 
Drucker-Schnittstelle (LST). Besitzen 
Sie einen 24-Nadel-Drucker? Auch 
hierfür hält VARIO ein besonderes An¬ 
gebot bereit: Die Informationen des 
Bildschirms werden so umgewandelt 
und bearbeitet, daß auch die speziellen 
Grafikmodi der 24-Nadel-Drucker un¬ 
terstützt werden können. 

Ein Drucker mit Profil 

Soll alles nach Ihren Wünschen funk¬ 
tionieren, benötigt VARIO, wie schon 
erwähnt, eine Datei, in der die Beson¬ 
derheiten Ihres Druckers definiert 
sind, die sogenannte Profil-Datei. Da¬ 
mit VARIO sie lesen und bearbeiten 
kann, erhält sie den Dateitypen-Be- 
zeiehner '.PRO' (für PROFIL). 

Über Schlüsselwörter wird dem Pro¬ 
gramm in dieser Datei mitgeteilt, was 
die einzelnen Anweisungen und Kom¬ 
mandos bedeuten. Da diese Schlüssel¬ 
wörter für die richtige Funktion zentra¬ 
le Bedeutung haben, werden sie im fol¬ 
genden ausführlich erläutert. 


106 PC 10/11’90 

















-pcw^ 


SETUP 

Initialisierung des Druckers 

RESTORE 

Steuerzeichen für den Drucker 
nach dem Ausdruck 

GRAPHICS Steuerzeichen für den Aus¬ 
druck einer Grafikzeile 

TSETUP 

Initialisierung des Druckers für 
Text-Hardcopies 

TRESTORE 

wie RESTORE, jedoch für 
Text-Hardcopies 

PORT 

legt den Ausgabekanal fest 

SIZE 

steuert die Vergrößerung des 
Ausdrucks 

ROTATE 

druckt die Hardcopy um 90° 
'gedreht’ 

P24 

erlaubt die Nutzung der 
24-Nadel-Grafik-Modi 

LC.HC 

legt die Zeichenposition für die 
Zeilenlänge fest 

CEN, SIO. 

Gerätebezeichner für den Aus- 

LST 

gabekanal 


Tabelle: Schlüsselwörter zur Steuerung von Varia 


Zunächst jedoch einige grundlegende 
Konventionen, die bei der Erstellung 
der Profil-Datei beachtet werden 
sollten: 

• Kommentare werden mit dem Zei¬ 
chen eingeleitet. Wird dieses Zei¬ 
chen beim Lesen der Profil-Datei ge¬ 
funden, so wird der Rest der Zeile 
ignoriert. 

• Schlüsselwörter sind jeweils durch 
ein Leerzeichen vom Rest der Befehls¬ 
zeile zu trennen. 

• Für jedes Schlüsselwort (mit Aus¬ 
nahme der Wörter LC, HC und der Ge¬ 
rätebezeichner CEN. SIO und LST) 
muß eine eigene Zeile benutzt werden, 
die mit diesem Schlüsselwort eingelci- 
tet wird. 

• Steuersequenzen dürfen maximal 32 
Zeichen enthalten, alle Zeichen müs¬ 
sen mit den dezimalen ASCII-Werten 
eingegeben und durch Kommata von¬ 
einander getrennt werden. 

• Groß- und Kleinschreibung wird von 
VARIO nicht unterschieden; ob Sie ein 
Schlüsselwort groß oder klein schrei¬ 
ben, bleibt Ihnen überlassen. 

Über den Umgang mit Schlüsseln 

Die Schlüsselwörter im Detail: 

SETUP 

Mit SETUP wird eine Zeichenfolge de¬ 
finiert, die zum Beginn einer Grafik- 
Hardcopy an den Drucker gesandt 
wird. Hier kann man zum Beispiel 
Grundeinstellungen von Rand, Zeilen¬ 
abstand, Seitenlänge und so weiter vor¬ 
nehmen. Wenn Sic Ihre Hardcopy je¬ 
weils am Beginn einer Seite drucken 
wollen, können Sie ein Form- 


Feed-(Papiervorschub)-Zeichen 
in die SETUP-Zeichenfolge ein- 
fügcn. 

RESTORE 

Das Schlüsselwort RESTORE 
leitet eine Zeichenfolge ein, die 
zum Ende der Grafik-Hardcopy 
an den Drucker gesandt wird, 
also zum Beispiel um die mit 
SETUP gemachten Einstellun¬ 
gen wieder zurückzusetzen. 

GRAPHICS 

Mit GRAPHICS wird die Zei¬ 
chenfolge definiert, die den 
Drucker in den Grafikmodus 
schaltet. Diese Zeichenfolge 
wird zum Beginn einer jeden 
neuen Zeile an den Drucker ge¬ 
schickt. Während alle anderen 
Anweisungen der Profil-Datei 
optional sind, also nicht unbe¬ 
dingt gegeben werden müssen, 
ist GRAPHICS zwingend erfor¬ 
derlich. VARIO kann eine Profil-Datei 
nicht bearbeiten und installieren, wenn 
keine GRAPHICS-Anweisung vorhan¬ 
den ist. 

Zwei weitere Schlüsselwörter werden 
in diesem Zusammenhang benötigt, 
’LC’ und ’HC\ Diese beiden Anwei¬ 
sungen bestimmen die Position inner¬ 
halb der GRAPHICS-Zeichenfolge, an 
der die Länge der Grafikzeile eingetra¬ 
gen wird. VARIO errechnet aus diver¬ 
sen Faktoren die jeweiligen Werte für 
die Zeilenlänge und trägt diese dann in 
die Zeichenfolge ein. 

HC steht dabei für High-Count und be¬ 
zeichnet das höherwertige Byte eines 
16-Bit-Wcrtes, LC (Low-Count) dem¬ 
entsprechend das niederwertige Byte. 
Daher muß bei der Eintragung der Rei¬ 
henfolge ’LC' stets vor ‘HC’ eingetra¬ 
gen werden, denn der Rechner spei¬ 
chert die niederwertigen Bytes immer 
vor den höherwertigen. 

Beispiel: 

GRAPHICS 27 , 76,LC,HC 

entspricht der Steuerzeichenfolge 
'ESC L nl n2\ wie sie beim PCW für 
Grafik doppelter Dichte benutzt wird. 
Da die oben genannten Schlüsselwörter 
für eine Grafik-Hardcopy benötigt 
werden, gibt es analog dazu auch für 
Text-Hardcopies entsprechende An¬ 
weisungen: 

TSETUP 

Das Schlüsselwort TSETUP definiert, 
wie SETUP, eine Zeichenfolge, die zu 
Beginn der Text-Hardcopy an den 
Drucker geschickt wird. Es empfiehlt 
sich, eventuell die Schriftart für den 
Ausdruck neu zu definieren, da der 


Bildschirm des JOYCE 90 Zeichen/ 
Zeile darstellen kann, der Drucker aber 
für gewöhnlich in der Schriftart PICA 
nur 80 Zeichen/Zeile. Hier sollte also 
dann zumindest die Schriftart ELITE 
(96 Zeichen/Zeile) ausgewählt wer¬ 
den, damit eine Bildschirmzeile auch 
auf dem Drucker in einer Zeile darge¬ 
stellt werden kann. 

TRESTORE 

Analog zu RESTORE wird TRESTORE 
benutzt, eine Zeichenfolge zu definie¬ 
ren, die zum Ende der Text-Hardcopy 
an den Drucker geschickt werden soll. 
Zur Auswahl weiterer Kriterien oder 
Einstellungen kann VARJO die folgen¬ 
den Anweisungen verarbeiten: 

PORT 

Für die Auswahl des Ausgabekanals 
wird das Schlüsselwort PORT benutzt. 
Abhängig davon, welchen Drucker Sie 
für die Hardcopy benutzen möchten 
beziehungsweise än welcher Schnitt¬ 
stelle Ihr Drucker angeschlossen ist, 
können Sie dabei wählen zwischen 
CEN (Centronics), SIO (Serial Input 
Output) und LST (PCW-Drucker). 
Wird keine PORT-Anweisung gefun¬ 
den. so installiert VARIO automatisch 
für den PCW-Drucker (LST). 

SIZE 

Das Schlüsselwort SIZE ermöglicht 
die Vergrößerung des Ausdrucks. Der 
SIZE-Anweisung müssen jeweils zwei 


. jOYCEäa.pro - legt da» Dnuckar-Pr-of 11 für einen 
; D1N-A4 Harocooy-Ausdruck auf den Drucker de» 

; JOYCE (PCW 8256/0512) fest 

i'"' al ® Benutzung de» JOYCE-Crucker» muß 
.der Ausg aoe- Kanal L3T fe»tgol*gt werden- 

PORT LST 

1 SETUP legt die Initial-»lorung de» Drucker» fest 
Ihrer: 27,51,13 = ESC 3 23 

(2o1lenahstand 23/216 Zoll) 

22,108,0 = ESC ’ 0 
; (linker Rand = 0) 

SETUP 27.51,23,27.108,0 

;GRAPHICS legt Oie Start-Sequenz einer Oraflk- 
,zelle Test 

;h1er 32,32,32,32 » 4 ■ Leerstelle 
I 27,76,LC.HC = ESC t nl n2 

; (Grafik doopelter Dichte) 

GRAPHICS 32.32,32,32,27,76.LC,HC 

.RESTORE definiert eine EXIT-Saquenz 
.hier 27,64 = ESC § (0rucker-Reset) 

RESTORE 27,64 

;um DIN-A4 Format zu arhaten, muß der Ausdruck 
;um 90 Grad gedreht wercen 

ROTATE 

;0an‘t die Größenverhältnisse übnreinstImmen. 
;wird eine horizontale vergröDorung vor 1 und 
leine vertikale Vergrößerung von 3 gewählt 

SIZE 1,3 

1 ’ex L-Kommandos: 

ITSETUP legt die Initialla er um as-Sequenz für 
;Text-Mardcop1es fest. 

.hier- 27.77 = ESC M (Schriftart ELITE) 

TSETUP 27,77 

;TRESTORE definiert eine Zeichenfolge *ur das 

;Ende de» Ausdruck». 

»hier 27,64 ESC S (Drucker-Re»et) 

TRESTORE 27,64 


Abbildung I: Für den JOYCE-Drucker sollten 
Sie diesen Treiber benutzen 
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; NECP2Z00. P80 - definiert aas D^uctter-P^o'l 1 für 
, den Drucke- NEC-P2200 (NEC-P2) zum Ausdruck von 
: Hardcopies mit VARIO. 

iOer Druckor «iro an der Cenironiea-Schn1ttste1Ie 
;Ostrieben: 

PORT CEN 

;Wr Benutzen 24-Nade 1 -Gr a f I k : 

P24 

;Oie Initial lalerunga-Seoueni wird mit SETUP 
;definiert: 

;hler: 2T,51.23 *> Zollonanstanc 23/180 Zoll 
; 27,66,1 ■> BldlrktIonaI es Orucken ein 

SETUP 27.61.23.27,05,1 

iReatore legt oine Zeichenfolge für dao Enoe Oes 
;Ausdrucks fest. 

;h!er; 28,64 = > Oruckor-Re5et 

RESTORE 28,64 

iDIo Initialisierung aer Grafikzei'e wird mit 
;GRAPHICS definiert: 

.hier: 32. 32. 32,32. 32.32 =) 8 Leerstellen 
. 27.42.33,LC.MC »> GrafIkmoduo: 

24-Nadel n/doppeltu Dichte 

GRAPHICS 32.32.32.32. 3 2,32,27.4 2. 33,LC,HC 

,Für die Text-Hardcopy wird mit TSETUP die 
;Sehr'f tart ELITE festgelegt, mit TRESTORE 
.e'ne Reset-Soquenz 

TSETUP 27,77 ;ESC V 

TRESTORE 28,64 iFS § 


Abbildung 2: Der Treiber NECP2200.PRO eig¬ 
net sich perfekt fiir den Ausdruck auf dem 
24-Nadel-Drucker von NEC 

Zahlen (Wertebereich 1 ..4) folgen, die 
angeben, wie oft ein Bildpunkt des 
Bildschirms auf dem Drucker gedruckt 
werden soll. Der erste Wert bestimmt 
die horizontale Vergrößerung, der 
zweite Wert die vertikale Vergröße¬ 
rung. Als Beispiel: 

SIZE 2,4 

vergrößert den Ausdruck horizontal 
um den Faktor zwei und vertikal um 
den Faktor vier. Das bedeutet, jeder 
Bildschirmpunkt wird auf dem 
Drucker durch zwei Punkte nebenein¬ 
ander und vier Punkte untereinander 
dargestellt. 

Geben Sie keine SIZE-Anweisung in 
der Profil-Datei, so gilt SIZE 1,1. 

ROTATE 

Das Schlüsselwort ROTATE verwen¬ 
den Sie, wenn Sie die Hardcopy um 90 
Grad gedreht ausdrucken möchten. Ist 
kein ROTATE angegeben, so erfolgt 
der Ausdruck 'normal’ 


P24 

Dieses Schlüsselwort benötigen Sie, 
wenn Sie die speziellen Grafikmodi der 
24-Nadel-Drucker benutzen möchten. 
Da die 24-Nadel-Grafik jeweils drei 
Bytes zum Druck einer Pixel-Spalte be¬ 
nötigt. wird das ursprüngliche Ausga¬ 
be-Byte (acht Bit) von VARIO auf drei 
Bytes (3*8 Bit) erweitert und erlaubt 
damit auch die Benutzung dieser be¬ 
sonderen Grafikmodi. Möchten Sie die 
8-Bit-Grafikmodi benutzen, die bei den 
meisten 24-Nadlcrn aus Gründen der 
Kompatibilität zur Verfügung stehen, 
so dürfen Sie P24 allerdings nicht an¬ 
geben. Die Reihenfolge der Anweisun¬ 
gen innerhalb der Profil-Datei ist belie¬ 
big, es spielt also keine Rolle, ob SET¬ 
UP oder PORT oder sonst eine Anwei¬ 
sung zuerst gegeben wird. 

Die Tabelle faßt die Schlüsselwörter 
und deren Bedeutung noch einmal 
zusammen. die Beispieldateien 
NECP2200.PRO und JOYCEA4.PRO 
zeigen, wie Sie diese verwenden 
können. 

Einfache Installation 

Nachdem Sie Ihre “persönliche“ Pro¬ 
fil-Datei erstellt haben, muß diese noch 
installiert werden, das heißt, VARIO 
muß sie bearbeiten und in die entspre¬ 
chenden Programm-Routinen einbin¬ 
den. Dies geschieht ganz einfach, 
indem Sie VARIO mit der entsprechen¬ 
den Profil-Datei aufrufen. Die Bei¬ 
spieldatei also so: 

VARIO NECP2200 

Die in der Profil-Datei enthaltenen An¬ 
weisungen werden von VARIO über¬ 
nommen und zusammen mit dem neuen 
Druckertreiber in den Speicher der 
RAM-Disk übertragen. Dieser Druk- 
kertreiber bleibt nun resident installiert 
und kann über die Tastatur aktiviert 
werden. Wollen Sie eine Grafik-Hard¬ 
copy drucken, so drücken Sie gleich¬ 
zeitig die Tasten 'ALT'+'EXTRA' 


+ ’PTR', für die Aktivierung der Text- 
Hardcopy genügt die Tastenkombina¬ 
tion 'ALT' H-’PTR'. 

In beiden Fällen wird durch VARIO 
eine Art Programmunterbrechung 
(Software-Interrupt) erzeugt und das 
laufende Programm für die Dauer des 
Druckvorgangs unterbrochen. Der An¬ 
wender braucht sich also um Datensi¬ 
cherung oder zusätzliche Programm¬ 
aufrufe nicht zu kümmern, all dieses 
wird selbständig von VARIO erledigt. 
Eine laufende Hardcopy kann jederzeit 
durch die 'STOP’-Taste abgebrochen 
werden. Wenn Sie die interne Hardco¬ 
py-Funktion des PCW benutzen wol¬ 
len, während VARIO gerade aktiv ist, 
so ist auch dies möglich. VARIO wird 
dann ebenfalls unterbrochen und nach 
Beendigung der Hardcopy wieder akti¬ 
viert. Dies funktioniert natürlich nur, 
wenn VARIO für einen externen 
Drucker installiert wurde. Wollen Sie 
verschiedene Formate oder abwech¬ 
selnd mal einen externen Drucker, mal 
den PCW-Drucker zum Ausdruck Ih¬ 
rer Hardcopy benutzen, so benötigen 
Sie verschiedene Profil-Dateien, die 
Sie jeweils bei Bedarf neu installieren. 
VARIO kann zwar immer nur für einen 
Drucker installiert werden, diese In¬ 
stallation kann aber mit einer neuen 
Profil-Datei beliebig oft geändert 
werden. 

Fehler, die während der Installation 
auftreten können, werden dem Anwen¬ 
der angezeigt und beenden den Installa¬ 
tionsvorgang. IO. COM. 

Ob Sie den BASIC-Lader zur Erzeu¬ 
gung von VARIO.COM oder das ferti¬ 
ge Programm von der DATA BOX be¬ 
nutzen, dem Anwender des neuen 
Druckertreibers wünschen wir viel 
Spaß und Erfolg bei der zukünftigen 
Erzeugung von Biidschirmausdrucken. 

(Norbert Finke/rs) 


LISTING > V A R10 <. REMARK = ><. 

< 83 > 1000 '- 

< 68 > 1010 -. VARIO. BLD. - 

< 84 > 1020 erzeugt den Drucker-Treiber VARIO.COM., - 

< 69 > 1030 Rechner: Schneider JOYCE. - 

< 7 > 1040 -. (Amstrad PCW 8256/8512 ). - 

< 8 7 > 1050 Betriebssystem: CP/M 3( + ) (v.1.2/1,4). . - 

<12 > 1060 Programm!ersprache : MALLARD-BASIC. - 

<61> 1070 -. written 1990 by NoFi. - 

< 8 > 1080 ’- 

<91> 1090 RESTORE 1160 


Listing: VARIO.BLD 


<13 > 1100 OPEN'O" ,#1, "VARIO.COM" 

<■ 2 > 1110 FOR i =0 TO 2639 

< 68 > 1120 READ a$:PRXNT # 1,CHR$(VAL("&H "+ a$) ); 

< 9 3 > 1130 NEXT 

< 12 > 1140 CLOSE »l.END 

<58> 1150 '- DATA-Lader- 

< 6 > 1160 DATA 00,30,01,32,34,04,00,00,02,00,72.02,00 
<65> 1170 DATA 62, 02,CD, 58, 01,CO,CB,03,2A,38.04,01, B7 

< 60 > 1180 DATA 00, 11,00,07 , 3 A , 3F,04 ,B 7, F5, 28, 04.ED,4B 

< 2 6 > 1190 DATA 01,06,3A,3D,04,CD, 16,04 , F 1 ,C4.F2.03, 11 

<51> 1200 DATA 40, 04 ,CD,35, 04, C3,00 , 00,OE,OC,CD,05,00 
<75> 1210 DATA 7D,FE, 31,20, CF,CD,5A,FC , E3,00,05, 20, 07 

< 92 > 1220 DATA 79,FE.04,C8,FE,02,C8,11 , 56,04.C3,27,04 

<36> 1230 DATA CO,7B,01,CO,3E,F F, 3 2,3F,04, CD,B9,01,D5 
<93> 1240 DATA CD,E8,01,3 2 ,7C,00,CD,F 4,01, CD,F8,01,CD 

<53> 1250 DATA FC,01,D 1, CD,05,01,CD,C7,01,CD,B9,01,05 
<23> 1260 DAT A CD,E4,01.01,F5,CD,05,01,F1,3C,C8,30,87 

< 79 > 1270 DATA 87,87,87.87,C6,90,26,00.6F, 7E,F5 . 1F, 1F 

Listing: VARIO.BLD 
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< 76> 

< 42 > 

< 52 > 
<22 > 

< 93 > 

< 30 > 
<42> 

< 18 > 

< 70 > 

< 4 1 > 
<91 > 
<45 > 

< 20 > 

< 7 7 > 

< 5 8 > 

< 80 > 
<38> 

< 75 > 

< 35 > 

< 60 > 

< 79> 

< 75 > 

< 71 > 

< 6 > 

< 1 5 > 
<21 > 

< 2 7 > 
<25 > 

< 8 > 

< 9 2 > 

< 6 6 > 

< 12 > 

< 39 > 
<21 > 

< 4 2 > 

< 5 7 > 
<89 > 

< 4 6 > 

< 6 1 > 

< 9 8 > 
<91 > 

< 75 > 

< 80 > 

< 11 > 

< 32 > 

< 26 > 

< 9 8 > 

< 8 7 > 

< 60 > 

< 13> 

< 49 > 

< 9 7 > 

< 95 > 

< 33 > 

< 5 7 > 

< 1> 

< 28 > 

< 5 7 > 

< 48 > 

< 49 > 

< 15> 

< 9 6 > 

< 6 6 > 

< 2 2 > 
<61 > 

< 70 > 

< 69 > 

< 5 > 

< 81 > 

< 13> 

< 4 5 > 
<46> 

< 82 > 

< 9 7 > 

< 2 8 > 

< 85 > 

< 8 3 > 

< 7 3 > 
<61 > 

< 2 8 > 

< 89 > 

< 5 > 

< 3 > 

< 1 7> 
<20> 

< 2 3 > 

< 9 2 > 

< 5 1 > 

< 5 4 > 

< 5 7 > 

< 60 > 

< 63> 

< 3 8 > 

<41 > 

< 4 4 > 

< 4 7 > 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
15 80 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1 700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1 780 
1 790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2 3 50 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1F.E6.1F 
40,B7, 28 
04, 30,C9 
01, Fl,5F 
5C, 00,36 
OS , 00,06 
18,19,06 
00,06,10 
IE,11 , 5C 
11,98,04 
52,23,36 
26, 00, HS 
1 7 , F6,40 
CD,DF,01 
FO.01,11 
C2, 27,04 
00,CD,DF 
DF,77,23 
38, 28, OC, 
16,60,23, 
7E,F6,20, 
3A,85,07, 
0 7,3A,49, 
FE,20,CO, 
1A.BE.23, 
23.20, FC, 
27,04,01, 
09, 09, 7E , 
11.2C.07, 
18,00,05, 
07,CD,97, 
02 , 28,7E, 
CD,CD,02, 
21.00,32, 
79,D6, OA, 
07, C9,CD , 
C2, EA, 02, 
C9.CD.C6, 
C9.3E.FF, 
06,00,CD 
79,FE ,20 
7E , D6,30 
47, Fl,23 
2A,3B, 04 
09,78.Bl 
12,63,13 
3A, 30, 04 
21,00,00 
00,El, Di 
01,18,04 
FC, 05, 11, 
00,00,06, 
56,41,52, 
74 , 61,6C, 
63,68,65, 

73.79.73. 

63.68.74, 

69.63.68, 
20,52,41, 
6E.65, 20, 
65,69,20, 

75.67.72, 
6F,66. 69 , 
63,68,74, 

72, 6F,66, 
75,20,67, 

64.65.72, 

74.65.69, 
6C .69, 63, 
73,2F,66, 
73,20.48, 

20.64.65, 

61.74.65, 
53,45,54, 
53,00,52, 

5 3, 54,4F, 
5A, 45, 00, 
00,48,43, 
4F.00.43, 
0D.03, 12, 

65.69.66, 
65,69,63, 

64, 65,6E, 

1A,1A,1A, 
1A,1A, 1A, 
1A, 1A, 1A, 

1A, 1A, 1A, 
00,00,00, 
00,00,00, 
00 , 00 , 00 , 
00,00,00, 
00,00,00, 
00.00,00, 
00,00,00, 
00,00,00, 
00,00,00, 


, C6 
.07 
. IE 
,C9 
, OD 
, 1A 
, OF 
, 1B 
, 00 
, CA 
. 4 F 
, EB 
. 38 
, CD 
, DB 
, C D 
.01 
.FE 
. FE 
. 76 
. 30 
. F 5 
. 05 
, 23 
, 13 
,0C 
i C9 
23 
18 , 
1 3’, 
03 , 
FE. 
79 , 
BF , 
38 , 
7E , 
23 , 
02 , 
32, 
C6 , 

■ DO , 
, D8 , 

, 80, 

. E5 , 

. 28 , 

, 78 , 

, C 6 
, 39 
, C9 
, C5 
, CA 
, 09 
. 49 
, 6C 
, 73 
. 74 
, 20 
, 65 
4D 
50 , 

67, 
69 , 
6C , 
20 . 
69 , 
72 . 
20. 
20, 
68 , 
65 , 
6F , 
72 , 
69 , 
55 , 
45 . 
52 , 
52 , 
00 . 
45 , 
03. 
20. 

68, 
24 , 

1A , 

1A , 

1A , 
1A , 
00 , 
00, 
00. 
00, 

00 , 

00 , 

00 , 
00, 
00, 


, 03 
. 11 
■ FF 
. 11 
,C9 
, C3 
. 18 
.09 
, CD 
,27 
, ED 
.21 
,02 
, EC 
, 04 
. F 6 
. El 
, 1A 
. 20 
. FE 
, OD 
, 3 A 
, B7 
, 18 
, 28 
. BE 
, 79 
, 66 
, OA 
, CD 
,C5 
2C 
FE 
07 
8F 
03 
CD 
CD 
83 
02 
, 7 E 
, FE 
.47 
. ED 
. 13 
. E 6 
, 86 
, 7 C 
.11 
, 06 
. 05 
,C3 
. 4F 
, 69 
. 20 
. 65 
, 67 , 

, 72 , 

, 2 D, 
72 , 

65 , 

66 , 

2 D , 
60, 
6C , 
6F , 
50 , 
66 , 
24 , 
68 , 
6D , 
20 , 
24 , 
50 , 
53, 
45 , 

4 F , 
4C , 

4 E , 
53. 
43 . 
65 , 
OA, 

1A , 
1A, 

1 A, 
1A , 
00, 
00, 
00 , 
00, 
00, 

00 , 
00, 

00 , 
00, 


, 32 
, 00 
, CD 
. 6E 
, 0 E 
, 05 
. 15 
.21 
.05 
, 04 
, SB 
.00 
. 36 
,01 
, CA 
,01 
,C9 
, 20 
, 38 
. 20 
, 18 
■ B4 
, C8 
, F 9 
, FA 
. E8 
, FE 
, 6F 
, 1 1 
,97 
, 16 
. 20 
, 09 
, AF 
.28 
, 30 
. 7 E 
. AF 
.07 
, CD 
, FE 
, OA 
. 30 
, 4B 
. OB 
.07 
, 5F 
.FE 
, AB 
,01 
.CD 
, 05 . 
.20, 

, 65 , 

. 42 , 

. 6D, 

. 65, 

. 20 , 

. 44 , 
6F , 
66 , 
66 , 
44 , 
7C , 
20. 

7 E , 
72 , 
69 , 
46, 
6C, 

6 D , 

50, 

FF , 
00, 
54, 
00, 
54, 
43, 
00, 
03 , 

6 F , 

72 , 
00, 

1A , 
1A, 

1A , 

1A , 

00 , 

00 , 

00 , 

00 , 
00, 

00 , 

00 , 

00 , 
00, 


,30,04 
,08,19 
. D5.01 
,04, OE 
,20,C3 
,00,OE 
.OE.14 
,65,00 
, 00,B7 
,21,65 
,01,06 
,00,39 
. 3F , 5F 
,11,B4 
.27,04 
,IE,01 
,E5,7E 
,F3,E1 
,OE,CD 
,30,FA 
.F4,3A 
,07,32 
,11,15 
, 01,00 
,FE, 00 
.El ,20 
,09.30 
,E3,C9 
.40,07 
,03,Dl 
.00,ED 
,B4,79 
,20,A6 
,32,49 
. 80,FE 
,80,32 
,03,D2 
,03,00 
, C9,3E 
,AF.03 
,2C,CO 
,DO,F5 
.EC,11 
,01,06 
,CB, 16 
.20,EC, 

. 1-6,83, 
,C0,38, 
.05, C3, 

, 4F,CD, 
,35,04, 
00,00, 

69.73, 

72.74, 

65.74, 
24,03, 
6E,75, 

61.75, 
69,73, 

'6 6.69 , 


75.6E, 
20,61, 
61,74, 
67.6C. 
44.61, 
24,4C, 
6F,66, 

63.68, 

65.68, 
65,72, 
61 , 6E, 
72,6F , 
53,45, 
47,52, 
4F,52 , 
50,4F, 
41.54, 
00,4C, 
00,03, 
65,03, 
60,60, 
20,76, 
07,24, 
1A.1A. 
1A,1A, 
1A,1A, 
00,CB, 
00 , 00 , 
00,00, 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 


,Fl,E6 
, 3D, 20 
.F5,IE 
,98, CD 
,05,00 
.11,18 
,18,11 
, 7E , F6 
,C9,3A 
,00,36 
,21,00 
,25.68 
,CD,DA 
,04, C2 
, 11. FO 
.CD,DA 
,FE,61 
,C9,CO 
,CD,02 
. FE, 1A 
, B3,0 7 
,85,07 
,05,C3 
,00,11 
.28,12 
, E9 , 11 
,F3,E5 
,11,08 
,18,05 
.79,12 
,53,BO 
,FE,OA 
.CI , 79 
. 05,C9 
,04,30 
,B4,07 
,EA,02 
,78.B7 
,FF,32 
,DO,78 
,23,18 
,78,87 
.15,05 
,21,00 
,30,05 
,23,18 
,2A,3B 
,08,C0 
,27,04 
,57,FC 
,Dl,CD 
,00,00 
,74,20 
.24,46 
.72,69 
,0 7,5C 
,67,20 
, 66,20 
.68,24 
6C , 2 D , 

64.65, 

75.66, 

65.69, 
69,63, 
74,65, 
65,73, 
69, 6C, 
74,20, 
6C,65, 
68,61, 
64,6F, 

66.69, 
54,55, 
41,50, 
45,00, 

52.54, 
45,00, 

53.54, 
03,08, 
8B,03, 
6F , 6E , 
6F, 72, 
1A,1A, 

1A, 1A , 
1A,1A, 
1A, 1A, 

03,00, 
00,00, 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00,00, 
00,00, 
00,00, 
00,00, 
00,00, 


,07,21,00 
,FC,22,38 
,OF,CD,D5 
,05,00,21 
,OE,2C,C3 
.10,06,16 
,OE,15,18 
,80,77, OE 
,80,00,87 
,50,23,36 
,07,19,19 
,ED,52.7C 
,01,Dl,D5 
, 27,04,CD 
,04,FE,01 
.01,11,80 
, 38,03,E6 
.C6.02.FE 
,CD,F 2,02 
,28,08,23 
,87,28, OE 
, Fl,32,84 
,27,04,7 E 
,4A, 05,E5 
,EB, AF. BE 
,15.05.C3 
.21,99,05 
, 0 7 , 18,0 F 
, 11 , 6E,07 
,C9.11,90 
,07,CD,CD 
, 20,AF,23 
,C6,02,F£ 

,CD,CD,02 
,89,32,82 
,7E,FE,2C 
,32,B5,07 
,CS,F E,05 
,B6,07,C9 
,12,13,OC 
, EA, 06, 00 
,87,80,87 
,C3,27,04 
.07. 54, 5D 
,E3,1A,84 
,69,El,C9 
, 04,D5,ES 
, 5A,FC.28 
,CS,47,OE 
,CI,C3,48 
, 35,04,C3 
,00,00,00 
,69,6E,73 
, 61,6C, 73 
,65,62,73 
,00,4E,69 
,53,70,65 
.64,65,72 
,48,65,69 
44,61,74 
6E, 24, 5A 
20,50,72 
20,6E,69 
68,24,50 
69,20,7 A 
65.6E.20 
20,44,61 
60,7C, 67 
6E, 64, 65 
66,74,65 
20,69,6E 
6C,2D, 44 

50,00, 54 
48,49,43 
54,52,45 
00,53,49 
50,32, 34 
00,53, 49 
03,20,03 
91,03, 4 B 
20,53,70 
68,61,6 E 
1A , 1A,1A 
1A.1A, 1A 
1A,1A,1A 
1A, 1A.1A 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 
00 , 00,00 


< 50 > 

< 53> 

< 56> 

< 59 > 

< 62 > 

< 6 5 > 

< 40 > 

< 43 > 
<46> 

< 49 > 

< 5 > 

< 55 > 

< 5 8 > 
<61 > 
<64> 

< 67 > 

< 42 > 
<45> 

< 4 8 > 
<51 > 

< 5 4 > 

< S7> 

< 60 > 

< 82 > 

< 5 > 

< 7 > 

< 32 > 

< 5 > 

< 12 > 

< 38 > 
<41 > 

< 9 > 

< 34 > 

< 7 9 > 

< 36 > 

< 6 > 

< 65 > 
<24 > 
<33> 

< 7 > 

< 43 > 

< 94 > 

< 33> 

< 3 > 

< 1 3 > 

< 70 > 

< 5 3 > 

< 1 > 

< 4 9 > 

< 74 > 
<95 > 

< 31 > 

< 6 5 > 

< 3 7 > 

< 46 > 
<81 > 

< 10 > 

< 5 2 > 

< 94 > 

< 16> 

< 1 7 > 

< 1 4 > 

< 5 8 > 

< 2 0 > 

< 92 > 
<52 > 

< 2 9 > 
<44 > 

< 5 7 > 

< 69 > 

< 5 5 > 

< 7 4 > 

< 39 > 

< 88 > 

< 2 4 > 

< 88 ) 

< 40 > 

< 59 > 

< 1 6 > 

< 9 6 > 

<eo> 

< 9 3 > 

< 65 > 

< 6 8 > 
<54> 

< 62 > 

< 72 > 

< 7 5 > 

< 1 5 > 
<25 > 

< 62 > 

< 3 > 

< 7 6 > 

< 62 > 

< 24 > 

<42 > 


Listing: VARIO.BLD 


2240 
225 0 
2260 
2270 
2260 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2 700 
2710 
2720 
2730 
2 740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 


DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00. 
00 , 
00, 
00 , 
oo, 
00. 
00 , 
01 . 
CD, 
EB, 
01 , 
7C , 
09 , 
13 , 
01 , 
C9 
03 
3 A 
3E 
02 
B 7 
E 5 
88 
C3 
21 
CI 
00 , 
00 , 
73, 
C9 , 

E 4 , 
06. 

A 5 , 
CD, 
Dl , 
CA , 

1 F , 
19 . 
06 , 
08, 

1 6 , 
00, 
03 , 
03 , 
OB , 
38 , 
00, 
30 , 
FB. 
14 , 
C9 , 

3 A , 
CI , 
OF , 
20, 
F8 , 

F 5 , 

F 5 , 
23 , 
07, 
03 , 

23 . 
03 , 
E5 , 
30, 

F 5 , 

1 7 , 
00 , 
00, 
00, 

24 . 
10, 
20, 

49 , 

00 , 

48 , 

10 . 
00, 

1A , 


, 00 
, 00 
, 00 
,00 
,00 
, 00 
, 00 
,00 
, 00 
, 00 
, 00 
, 00 
00 
00 
00 
00 
00 
00 
00 . 
00 , 
00 , 
00, 
00 , 
0 o, 
01, 
5C, 
,21 , 
. AF, 
. 01 , 
. ED, 
. 2.2 , 
. 73, 
.CB, 

. 18 , 
,8C 
.FF 
. 28 
, 03 
, F5 
, 1F 
, OA 
. 08 
, 03 
, 00 
01 
23 
C2 
01 
5 A 
03 
6D, 
CI , 
70, 
21 , 
OC , 
06 , 
2A, 
00, 
D5 , 

3 E , 
CI , 
14 . 
BF , 
CD, 
18, 
23 , 
18 , 
21 , 
BS . 
DO, 
3A , 
FC, 
C9 , 
10 , 
1F . 
CB , 
CD, 
Fl . 

4 E . 

B 7 , 
CD. 
32 . 
21 , 
Fl , 

01 , 
00, 
00, 

48 , 

00 , 

08 , 

2« , 
80, 

24 , 

12 , 
00, 

1 A , 


.00,00 
,00,00 
,00,CO 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
■C3.B7 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
00,00 
00,00 
00.00, 
00,00, 
00,00, 
00,00, 
00,00, 
00,00, 
00,CD, 
01,CO, 
.64,00, 
,32,BC, 
.CD,87, 
.58,52, 
.5C.13, 
,23,72, 
,48,20, 

.11,CB, 

,03,3C, 

,32,BC 
.03,21 
.FE,02 
.3A.B7 
. Fl , E3 
.21.AF 
,00,CD 
,36.01 
, 11.DO 
, 3A.84 
72 , Fl , 
A5.02, 
EF.E6, 
16,00, 
CD,ID, 
03,14, 
38,09, 
03,CD, 
FB,B8, 
BE,28, 
23.13, 
88,03, 
CD,F8, 
C5,2A, 
01,CB, 

.10,ED. 

,D5.2A, 

,C9,06, 
60,03, 
2A.B8, 

4 F , E 5 , 
OC ,CD, 
03.03, 
00,32, 
FE,42 , 
CI ,03, 

4 E , 3 A , 
F5,06, 
05,Fl, 
30,EC, 
16,El, 
26,03, 
32.C9, 

E 5,CD, 
CO,C5, 
F5.00, 
C2.03. 
5F,16. 

E 3,C9 , 
00,02, 
00,00, 
00,00, 
40,00, 
22,00, 
08,12, 
90,08. 
10.21, 
00,01, 
24,48, 
00,1A, 
1A,1A, 


,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
, 00,00 
,00.56 
00,00 
00,00 
00,00 
00.00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
,00,00 
.00,00 
,E 3,00 
,EF,00 
.19,22 
,03,32 
,01,18 
.14,22 
,ED,53 
, ED,5B 
.OB,CB 
.78,20 
,20. IC 
.03,E5 
,02,20 
.C2,2 5 
.03,21 
,C9,3A 
,32,C2 
,6D,03, 
30,28, 
02,3A, 
00,19, 
CD,D3, 
D2,5 F , 
01,00, 
C5.1E, 
02,CI, 
D5,2A, 
21,6E, 
53,02, 
E5,2A, 
06,CB, 
1A,BE, 
7E,2F, 
02,21, 
B8,03 , 
26,23, 
CI,Dl, 
B8.03, 
5A,IE , 
16.00, 
03,06, 
C5,CD, 
64,02, 
CD,60, 
CO,03, 
CO,CI, 
CD.26, 
B4,00, 
00.21, 
DO.B6, 
E5,CB, 
18 P EE, 
3A.C7, 
03,21, 
70,03, 
05,3A, 
El ,C1 , 
18,03, 
3A,87, 
00,00, 
OA,00, 
00,00, 
00,00, 
00,41, 
02,00, 
44,80, 
00,00, 
00,11, 
04,90, 
01,01, 
1A.1A, 
1A,1A, 


Listing: VARIO.BLD 


, 00,00 
, 00,00 
. 00,00 
, 00,00 
, 00,00 
, 00,00 
, 00.00 
, 00,00 
, 00,00 
,00,00 
,41,52 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00. 
.00,00, 
,00,00, 
.00,00, 
,00,00, 
,00,00, 
.00,00, 
,79,32, 
,22,B8, 
,8A,03, 
,BD,0 3, 
,ED,3A, 
.52,14, 
.BE,03, 
.61,00, 
.78,28, 
.00,3A, 

, C9,2 A , 

,3A,B7 
,E3.C9 
,22,CD 
,7A,IE 
, B7,03 
,03,3A 
,3A,85 
,05,CB 
,B3,00 
,30,20 
.01,21 
02,2 A 
00,21 
00,05 
Dl , IC 
B8,03, 
00,C3, 
CD,2C. 
38,03, 
79,28, 
20,E3, 
77,23, 
8F , 00, 
CD,A5, 
17,30, 
IC,10, 
IE,00, 
59,CD, 
D5,2A, 
08.3E. 
05,03, 
Dl,CI, 
03,3A 
37,09 
37, C9 
03,3A 
F5.CD 
C7,03 
77,09 
26,23 
3A.B6 
03 , F5 
C6.03 
El , 10 
B2,00 
38 , OB 
CD, F8 
03,FE 
00,00 
03,00, 
00,00, 
00,40, 
00 , 00 , 
02,00, 

90.90, 
00,01, 

20.90, 
08,80, 
02,00, 

1A,1A, 
1A,1A, 


,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
00,00 
00,00 
49,4F 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
, 00,8F 
,B7,03 
.03,11 
.EB.3E 
,2A,BA 
,B7,03 
,18,07 
, 36,EF 
,23,73 
.33,3E 
.B2,00 
,BA,03 
,03,21 
, 2 A , 8 E 
.25,21 
, FE,02 
,F E,02 

1 BD,03 
00,32 
26,34, 
87, F5 , 
FC,E8, 
40,00, 
61,00, 
2C.00, 
C5,2A, 
10,FO, 
1E.00, 
6D.03, 
02,C3, 
11.08, 

F 7 , E1 , 
10,F8, 
10,FA, 

,CD,6D, 
,03,06, 

, FA , 4F , 

.DE,CD, 

.CD,A5, 

. F8,02 , 
,88,03, 
.80,CB, 
,C1,El , 

,20,C9, 
,00,03, 

,C5,CD, 

,3A.B5, 
.CO.03, 
,51,03, 
.36,00, 
,30,02, 

,CB,16, 

, 00,B7, 
.3A.C9, 

, 7E,87, 

, F7,C1, 
.47,21, 

2 B, 7C, 
00,01, 
02,28, 
00,00, 
00,00, 
00,00, 
04,12, 
00,40, 
24.12, 
01,24. 
00,04, 
80,00, 
10,00, 
00,08, 

1A,1A. 
1A,1A, 


,00,00,00 
, 00 , 00,00 
.00,00.00 
.00,00,00 
,00,00,00 
. 00 , 00,00 
, 00 , 00,00 
,00,00,00 
,00,00,00 
, 00 , 00,00 
,00,00,00 
,00,00,00 
,00,00,00 
,00,00,00 
,00.00,00 
,00.00,00 
,00,00,00 
.00,00,00 
,00,00.00 
,00,00,00 
,00,00,00 
.00,00,00 
.00,00,00 
,00,01,00 
,21,6F,00 
,08,00,19 
,30,CD,6A 
,03,77,CD 
.FE,02,28 
.ED,5B,5C 
,23,11 , ID 
,23,72,23 
.FF,32,BD 
.30,20,22 
,7E,B7,FO 
,BE,1F.FE 
,03,E9,3A 
,30,FE,C9 
.28.03,21 
,CA,F 6, 1F 
.87,20,48 
,CO,03,21 
,18,F8,21 
.28,03,11 
, 2A,80,00 
,CD,6D,03 
26,82,22 
CD,6D,03 
B8,03,CD 
21 ,C3,03 
CD,A5,03 
CD.2C.02 
7D,03,OE 
00,7E.E3 
C9,Dl , E5 
El ,C9,06 
C9,06,5A 
03,C5, IE 
08,2A,BB 
C5.CD.05 
E4.02, 20 , 
03.Dl,CI 
C5,21,8F 
CO.A5,03 
26,1F,30 
10.EE.Dl 
1D.10.C.6 
30,20.03 
OA,00.79 
00.3D.28 
28,3D.23 
Fl,3D,20 
Fl,CB,21 
B6.77,Fl 
23.CB,16 
28.26,3£ 

03,32,C7 
C8.C5.47 
C9,3A,C2 
00,60,C5 
B5.20,F2 
CI , C9,E5 
03,21,4F 
00 , 00,00 
00,20,00 
00,00,00 
40,04,11 
20,81,01 
49,00,00 
04,84,20 
90,12,10 
80,10,02 
00,00,00 
00,08,00 
1A,1A,1A 
1 A , 1A , 1 A 
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Zeitzeichen 

Die interne Uhr des PCW 

Die im Joyce eingebaute Uhr führt immer noch ein Schattendasein. Daß sie 
trotzdem auch unter BASIC ziemlich einfach genutzt werden kann, sollen 
zwei kleine Programme zeigen: GETDATE.BAS und SETDATE.BAS 


Eine Uhr im Computer kann sehr nütz¬ 
lich sein. Dem Anwender, wenn erzürn 
Beispiel Faktura-Programme verwendet, 
dem Programmierer, wenn er zum Bei¬ 
spiel Spiele über eine Zufallszahl steuern 
möchte (und diese dann über die Uhr ge¬ 
nerieren kann) oder auch nur Programm- 
listings oder Dateien mit der Erstellungs¬ 
zeit versehen will. 

Auch der Joyce hat eine Uhr eingebaut, 
allerdings wird sie sehr selten genutzt. 
Dies mag einerseits daran liegen, daß die 
Uhrzeit nach jedem Computerstart neu 
gestellt werden muß, da der Joyce sie 
nicht batteriegepuffert zur Verfügung 
hat, Andererseits steht auch kein kom¬ 
fortables Programm zum Einbinden der 
Uhrzeit in Anwendungsprogramme zur 
Verfügung. Dies soll sich jetzt ändern. 

Die Lösung 

Die Lösung des Problems ließe sich über 
die Verwendung der BDOS-Funktionen 
104 (Datum und Uhrzeit setzen) und 105 
(Datum und Uhrzeit lesen) denken. Nur 
bedeutet dies natürlich, ein Maschinen¬ 
code-Programm zu schreiben und in den 
Programmtext einzubinden — und mehr 
Komfort, gerade beim Datum, ist daraus 


nicht zu ersehen. Einfacher ist das Aus¬ 
lesen (und Schreiben) der Spcicherstel- 
len, die für das Datum und die Zeit zu¬ 
ständig sind. 

Gerade BASIC mit seiner Möglichkeit, 
über PEEK und POKE einzelne Spei¬ 
cherstellen anzusprechen, lädt zur Ma¬ 
nipulation der Zeit ein. Genug der Vor¬ 
rede, hier sind unsere Speicherstellen: 

• 64500 und 64501 enthalten das Da¬ 
tum in Binärform, als Anzahl der Tage 
seit dem 1.1.1978. 

• 64502 ist für die Stunden zuständig, 

• 64503 für die Minuten und 

• 64504 entsprechend für die Se¬ 
kunden. 

64502-64504 sind also einfach zu 
handhaben, vorausgesetzt Sie denken 
hexadezimal, denn die Werte zeigen 
die Zeit auf einer 16er Basis an. 
Folgende Funktionen rechnen nun die 
Zeit um. 

Zum Lesen: 

DEF FNL(x) = INT(x/l6) *10 + x K0D 16 

Zum Stellen: 

DEF FNS(x)=INT(x/10)*l6 + X K0D 10 

Das Datum stellt sich etwas rechenin¬ 
tensiver dar. da die Differenz der Tage 


seit dem 1.1.1978 berechnet werden 
(zum Setzen des Datums) und in die 
Speicherstellen 64500 und 64501 ge¬ 
schrieben werden muß beziehungswei¬ 
se die Tage aus diesen Speicherstellen 
gelesen und in Tage, Monat und Jahr 
umgewandelt werden müssen - und das 
natürlich unter Berücksichtigung der 
Schaltjahre. 

Die Speicherstellen 64500 und 64501 
enthalten (erhalten) eine Zahl, die durch 
zwei Bytes dargestellt wird, von denen 
das höherwertige Byte zur Basis 256 be¬ 
rechnet und nachgestellt wird, also in 
64501 zu finden ist. 

Dies sollte zur Erklärung eigentlich rei¬ 
chen, weitere Hinweise finden Sie als 
Kommentare in den Programmen. 
GETDATE.BAS und SETDATE.BAS 
können als eigenständige Programme 
verwendet werden oder ohne Probleme 
als Unterprogramme in Ihre eigenen An¬ 
wendungen aufgenommen werden. 
Auch alle anderen 'kommerziellen' Pro¬ 
gramme, die auf die Uhr zurückgreifen, 
werden durch diese Routinen zufrieden¬ 
gestellt -DATE.COM verweigert sei¬ 
nen Dienst jedenfalls nicht. Übrigens 
laufen die beiden Programme auch auf 
dem PCW 9512. 

Anbei noch eine Beschreibung der be¬ 
nutzten Variablen: 


GETDATE.BAS 

h => Stunde 
mi = > Minute 
sec => Sekunde 
j = > Jahre 

s = > Schaltjahre seit 1978 
t = > Gesamttage 

rt = > Resttage (im Jahr, dann Monat) 
wt = > Wochentag 
m(n) = > Anzahl der Tage im Monat 
m$(n) = > Monatsbezeichnung 
t$(n) = > Tagesbezeichnung 


SETDATE.BAS 

j = > Jahr 
mo = > Monat 

t = > Tage im aktuellen Monat 

mt = > Tage der restlichen Monate 

ts = > Schaltjahre seit 1978 

m(n) = > Anzahl der Tage im Monat 

st = > Stunde 

mi = > Minute 

dat$ = > Datum 

zeit$ = > Zeit 

1$ = > für Fehlermeldung 

f = > für Fehlermeldung 

(Michael Bcermann/rs) 
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LISTING >GETDATE <, REMARK = >'<. 

<67> 10 DIM m(12),m$(12),t$(7) 

<49> 20 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
<33> 30 DATA Januar,Februar,Mrz,April,Mai,Juni,Juli,Au 
gust,September,Oktober,November,Dezember 
<8l> 40 DATA Sonntag,Montag,Dienstag,Mittwoch,Donnersta 
g,Freitag,Samstag 

<45> 50 FOR n=l TO 12:READ m(n):NEXT 

<92> 60 FOR n=l TO 12:READ m$(n):NEXT 

< 9 > 70 FOR n=0 TO 6:READ t$(n):NEXT 

<85> 80 DEF FNz$(x)=RIGHT$("00"+MID$(STR$(x),2),2) 

<76> 90 DEF FNL(x)=10*(xl6)+X MOD 16 

<80> 100 REM Datum wird anhand der Tage vom 1.1.78 an e 


rmittelt 

<88> 110 t=PEEK(64500!)+PEEK(64501!)*256 

< 0> 120 j =INT( t/365) +78 :. REM J 

ahreszahl 

<40> 130 s=INT(j/4) - XNT(78/4) :. REM S 

chaltjahre seit 78 

<16> 140 rt=(t MOD 365)-s:. REM R 

esttage im verbleibenden Jahr 

< 5> 150 IF rt<=s THEN j=j-1:rt=365+rt-s:. REM P 


rfung anhand der Schaltjahre/evtl. Jahr zurck 
<74> 160 IF j MOD 4<>0 THEN m(2)=28 ELSE m(2)=29: REM S 
chaltjahr jetzt? 

<48> 170 n=l:WHILE rt>=m(n):rt=rt-m(n):n=n+l:WEND:REM M 
onat in n ermitteln / Resttage 
<65> 180 IF j<100 THEN j=j+1900:ELSE j=j-100+2000:REM J 
ahreszahl auf Jahrhundert 

<85> 190 z=INT(t/7 1 : wt= (t-7*z)-1:. REM 

Wochentag ermitteln / ohne MOD da t evtl. grfter 3 
2767 

<85> 200 PRINT USING "& &. & ####"; "Das Datum ist: 

"; t$ (wt),FNz$(rt) ,m${n ), j 
<85> 210 REM Uhrzeit wird ermittelt 
<63> 220 h=FNL(PEEK(64502!)) 

<88> 230 mi=FNL(PEEK(64503!)) 

<60> 240 sec=FNL(PEEK(64504I)) 

<77> 250 PRINT"Die Uhrzeit ist: "FNz$(h)":"FNz$(mi)":"F 
NzS(sec) 

<36> 260 END 


LISTING >SETDATE<, REMARK = >'<. 

<71> 10 DIM m(12) 

<49> 20 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
<43> 30 FOR n=l TO 12:READ ra(n):NEXT 
<10> 40 DEF FNS(x)=INT(x/10)*16+X MOD 10 
<86> 50 cls$=CHR$(27)+"E"+CHR$(27)+"H" 

<16> 60 PRINT clsS 

<27> 70 INPUT "Bitte geben Sie das Datum im Format TT/M 
M/JJ ein: ";dat$ 

<81> 80 INPUT "Bitte geben Sie die Uhrzeit im Format SS 
:MM ein: ";zeit$ 

< 3> 90 t=VAL(LEFT$(dat$,INSTR(dat$,"/")-l)) 

<83> 100 f=INSTR(dat$,"/"):IF f>3 OR f=0 THEN 280 
<80> 110 m$=RIGHT$(dat$,LEN(dat$)-INSTR(dat$,"/")) 

<61> 120 f=INSTR(m$:IF f>3 OR f=0 THEN 280 

<14> 130 mo=VAL(LEFT$(mS,INSTR(m$,"/")-l)):f$="Monat":I 
F mo>12 THEN 270 

< 4> 140 j=VAL(RIGHT$(m$,LEN(m$)-INSTR(m$,"/"))):f$="Ja 

hr":IF j<78 OR j>99 THEN 270 

< 1> 150 ts=(j/4)-(78/4):IF j MOD 4=0 THEN m(2)=29:... 

REM Schaltjahrtage/29 Tage im Februar wenn derzeit 
Schaltjahr 

<96> 160 f$="Tag":IF t>m(rao) THEN 270 

<67> 170 mt=0:FOR z=l TO mo-1:mt=mt+m(z):NEXT:. 

REM Monatstage werden aufaddiert 

<64> 180 tage=((j-78)*365)+mt+ts+t:. 

REM Berechnung der Gesamttage 
<14> 190 POKE 64500!,tage MOD 256:POKE 64501!,INT(tage/ 
256):. REM Tage in 2 Bytes 
<95> 200 REM Stellen der Uhr 

<20> 210 f=INSTR(zeit$IF f>3 OR f=0 THEN 280 
<80> 220 st=VAL(LEFT$(zeit$,INSTR(1,zeit$,":")-1)):f$=" 
Stunde":IF st>23 THEN 270 

<36> 230 mi=VAL(RIGHT$(zeitS,LEN(zeit$)-INSTR(1,zeit$," 
:"))):fS="Minute":IF mi>59 THEN 270 
<30> 240 POKE 64502!,FNS(st):POKE 64503!,FNS(mi):POKE 6 
4504!,0 

<91> 250 END:SYSTEM 

<70> 260 REM Fehlerbehandlung 

<93> 270 PRINT "Eingabefehler: ";f$:GOTO 290 

<19> 280 PRINT "Falsches Eingabeformat" 

<41> 290 PRINT "Beliebige Taste drcken!" 

< 2> 300 a$=INKBY$:IF a$="" THEN 300 
<64> 310 GOTO 60 


Listing: Zeltreichen 


Llsting: Zeitzeichen 


Public-Domain für Amstrad CPC und Joyce 

Sagenhaft preiswerte Software für Amstrad CPC und Joyce mit Handbuch in 
deutscher Sprache • so machen diese tollen Programme richtig Spaß! 


1- JRT-Paseal - vollständiges Pascal mit 64K-Strings, Overlays ... * 

2- Z80-Assemblerpaket mit Assembler, Disasscmblcr, Linker und Debugger 

3- Künstliche Intelligenz - Interpreter für XLISP und E-PROLOG * 

4- C-Compiler Small-C - mit Flicßkommazahlcn und großen Bibliotheken * 

5- FORTH-83 - mit Assembler, Decompiler, Scrcen-Editor ... 

6- CP/M-Utilitics wie Dateikompressor, Diskmonitor, UNEKA-Dateireltcr ... 

7- Alle Programme aus dem Großen CPC-Arbeitsbuch (nur CPC) 

8- Adventure Colossal Cave (Programm englisch, Anleitung deutsch) * 

9- CPC-Disk Utilities - kopiert geschützte Software (nur CPC) 

10- IlizRasic - CPC-Basic-Erweilerung (relative Dateiverwaltung etc.) 

11- Basic-Compiler E-BASIC - CBASIC-kompatibel, viele Befehle 

12- Turbo Pascal-Programme - INLINE-Gcnerator, GSX- & CPC-ROM-Grafik 

13- Alle Programme aus dem Buch Den Joyce programmieren 

14- Alle Programme aus dem Buch CPC-Dateiverwaltung (nur CPC) 

15- WordStar-Utilities - Fußnoten, Stichwort, Mehrspallcndruck * 

16- dBASE-Litcraturverwaltung - Bringen Sic Ihre Buchsammlung in Ordnung * 

17- C-lnlerpreter SCI - Erlernen Sie spielend die Sprache C * 

18- MacroPack/Z80 - Z80-Makroassembler, Spitzen-Dcbuggcr und Linker 

19- MEX-Knmmunikationsprogramm - Datenübertragung mit dem Computer * 

* auf dem CPC-464/664 nur mit Speichcrcrwcitcrung (64K genügen). 


Der Preis? Sage und schreibe nur DM 30,- pro Diskette inklusive Porto und Ver¬ 
packung. Oder bestellen Sie drei beliebige Disketten für nur DM 70,-! 

Bitte geben Sie das gewünschte Diskcltenformat (3 Zoll oder Vortcx-Diskctten) 
an. Lieferung per Nachnahme oder Vorauskasse, ins Ausland nur per Voraus- 
kassc. 

MARTIN KOTULLA 


512k Speichererweiterung für CPC 

• HAM-Etwelterung 64, 128, 256 oder 512K für allo CPCs 
Alle Versionen nachträglich aul Maximal-Verslon aufrüstbar 

" optional 2 EPROM-Sockel mit fr©, wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2.2 (63K CP/M). Endlich lauten dBase. Multlplan und Wordstar 

• Patchprogramm tür CP/M Plus. CP/M Plus auch lür CPC 464/664 
■ resetleste R AM-Disc (maximal 448K) lür CP/M 2.2 und CP/M Plus 
' resetteste RAM-Disc unter BASIC (nur bei EP ROM-Version) 

• 100% kompatibel zu dk'tronics RAM-Erwellerung und Sillcon-Oisc 

' Anschluß über den Expansionspor! (kein Eingriff In den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse 160 x 83 x 20 mm) durchgoführtoi Erwoitorungsbus 

RAM-Erweiterung mit Software lür CP/M 2.2 und CP/M Plus aul 3"-Dlskot!o 
(wahlweise auch 3.5~- oder 5.25' Oiskotto) 


Preise: ohne RAMs.119.- DM 64 KByte.149.-DM 128 KByte. 199,-DM 

256 KByte. 269,-DM 512 KByte.419,- 0M 


Aufpreis für zusätzliche EPROM-Sockel und Soltware im EPROM 49,- DM 


Universeller EPROM-Programmer 4003 für Schneider 

IBM PC & CPC 464/664/6128 

• Programmiert alle gängigen EPROM- und 
EEPROM-Typen (z.B. 2716. 27C16. 2732. 2732A, 
27C32, 2758, 2764. 27B4A. 27C64, 27128, 27I28A. 
27C12B, 27256. 27C256, 2508, 2532, 2564.X2804A, 
X28I6A. X2B64A 

• Monügesteuerto Software auf Cassetfe/Diskeite 

• 32 KByte frei für EPROM-Daten (Brennen des 27256 
ohne Nachladen) 

• Kein Umschalton. Stecken oder Löten nötig 

• Programmierspannungen werden Im Gerät erzeugt 

• Verbindung zum Rechner über Flachoandkabel und 
Interface-Karte (CPC-Version mit durchgeführtem Ex- 
pansionsport) 

• Rote und grüne LEO zur Betrlebsarlenanzolgo 

• Komplett mit 28poligem Texttool-Sockol 

CPC-464/664 Komplettgerät DM 289,50 Bausatz DM239.- 
CPC-6128 Komplettgeiät OM 319,50 Bausatz DM269.- 
PC-1512-Kompietlgeräl DM399.50 Bausatz DM349.- 
• Aufpreis für CPC-Soflwaro aut 3"-Diskette statt Cassotte DM 15,- • 



EPROM- Karte 224 KByte für alle CPC 


• Für die EPROM-Typen 2764. -128, -256 
' ROM-Nummern 0-15 frei wählbar 
' 7 Sockel 

• Bei 27256 zwei ROM-Nummern pro Sockel 
" Durchgeführter Expansionsport 

• Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 


Fortiggerät für CPC 464/664 DM 145.- Fertiggerät für CPC 6128 

Modul Software auf 3"-Diskette DM 95.- 

Zubehör für EPROM-Karten 

EPROM 2764 DM 7.50 Protext-EPROM OM 124,- Maxam EPROM 

EPROM 27128 DM 8.50 Piomsrge PlusEPROM DM 114,- Utopia 

EPROM 27256 DM 10.50 XDDOS-EPROM DM99,- AMa ROM 

EPROM 27512 DM 17,50 TimeROM (baUeriegepufterte Echtzeilmr) + EPROM 


DM 169,- 


DM 124 
DM 94,- 
DM 35,- 
DM 135. - 


Kronacher Straße 7, 8500 Nürnberg 90, Telefon 09 11/30 49 44 


DOBBERTin 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/ 7 14 17 
Telefax 06202/75509 
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Für immer und ewig 

Ein Dateikompressor für Ihre Daten 

Gerade jetzt, wo der Preis einer CF2- oder CF2DD-Diskette so hoch wie 
noch nie ist, sollte man darangehen seine Disketten gründlich aufzuräumen, 
um Platz für neue Daten zu schaffen. Trotzdem gibt es noch eine ganze 
Menge Daten, die zwar momentan nicht, jedoch in einiger Zeit noch einmal 
benötigt werden. Diese können also archiviert werden und müssen nicht auf 
Knopfdruck zur Verfügung stehen. 

Mit den beiden Programmen KOMP und DEKOMP ist es möglich, beliebi¬ 
ge Dateien zu komprimieren (zusammenzuquetschen) und später - bei Be¬ 
darf - in Ihren ursprünglichen Zustand zurückzuverwandeln. 


Quelltext läßt sich oft erheblich 
komprimieren 

Im wesentlichen werden durch einen 
Algorithmus mehrere aufeinanderfol¬ 
gende gleiche Bytes in der Datei zu nur 
zwei Bytes zusammengefaßt, von de¬ 
nen das erste die Anzahl der Bytes und 
das zweite ihren Wert angibt. Natürlich 
ist es uneffizient, wenn eine Folge von 
unterschiedlichen einzelnen Bytes auch 
solchermaßen umgewandelt wird. Da¬ 
her werden solche Byte-Folgen nach 
einer entsprechenden Markierung di¬ 
rekt in die komprimierte Datei über¬ 
nommen. Diese Markierung besteht 
darin, daß das erste der oben genannten 
zwei Bytes, das normalerweise die An¬ 
zahl der aus einer Serie zusammenge¬ 
faßten Bytes angibt, Null ist. Nach die¬ 
sem Null-Byte wird die Anzahl der 
nachfolgenden, direkt übernommenen 
Bytes gespeichert. 

In der komprimierten Datei werden 
also folgende zwei Eintragstypen in be¬ 
liebiger Reihenfolge aneinanderge¬ 
reiht: 


nisse erzielt werden. Die Einzelheiten 
können dem Listing entnommen 
werden. 

Die Rückwandlung der komprimierten 
in eine lesbare Datei ist so einfach, daß 
man sie nicht beschreiben muß; das 
Verfahren kann dem Listing von DE¬ 
KOMP entnommen werden. Der Kom¬ 
primierungserfolg ist natürlich von Da¬ 
tei zu Datei unterschiedlich. Die besten 
Erfolge werden zum Beispiel mit Bild¬ 
dateien erzielt, in denen ein Bild Pixel 
für Pixel abgespeichert ist. Solche 
Bilddateien werden zum Beispiel von 
Logo oder dem ISS-Mousepack ange¬ 
legt; eine Komprimierung auf etwa 20 
Prozent der ursprünglichen Länge ist 
hier keine Seltenheit. Auch Pascal- 
Quellcodes lassen sich in der Regel et¬ 
was komprimieren (auf zirka 80 bis 90 
Prozent), da durch das Einrücken von 
Zeilen und sonstige Maßnahmen zur 
Strukturierung des Quelltextes sehr 
viele Sequenzen von Leerzeichen auf- 
treten. BASIC-Programme und Pro¬ 
grammdateien lassen sich nur in Ein¬ 
zelfällen komprimieren, zum Beispiel 
wenn sich in einer Programmdatei grö¬ 
ßere Pufferbereiche befinden, die mit 
Null-Bytes gefüllt sind. 


(Zusammenfassung von Anzahl glei¬ 
chen Bytes) 

oder: 


0 

n 

1 .Byte 


n-tes Byte 


(direkte Übernahme von n Bytes) 


Unter Umständen ist es besser, auch 
einzelne Bytes im Zwei-Byte-Format 
zu speichern oder Folgen von bis zu 
drei gleichen Bytes direkt zu überneh¬ 
men, da sonst durch die Markierungs¬ 
und Längen-Bytes schlechtere Ergeb¬ 


Kompression lohnt sich 

besonders bei Bilddateien 

Wie ich später entdeckte, pflegen 
dBasell-Dateien richtig in sich zusam¬ 
menzufallen; da ich jedoch selbst kein 
dBase besitze und mir nur Beispielda¬ 
teien von Databoxen zur Verfügung 
stehen, weiß ich nicht, ob dies nur eine 
Eigenheit dieser Beispiel-Datenbanken 
(vielleicht nicht richtig gefüllt?) oder 
bei jeder dBase-Datei der Fall ist. Je¬ 
denfalls wurde jede uns bekannte 
dBase-Datei auf weniger als die Hälfte 
zusammengepreßt; der größte Erfolg 


war hier eine Komprimierung auf 
knapp 8 Prozent, normal lagen die 
Werte zwischen 10 Prozent und 30 
Prozent. 

Aufrufsyntax des Dateikompressors: 

KOMP [ Quelldateiname [ Zieldateiname ] ] 


Werden beide Parameter weggelassen, 
fragt das Programm die Angaben selbst 
vom Benutzer ab. Wird beim Start nur 
der Quelldateiname angegeben, oder 
gibt der Benutzer bei der Abfrage des 
Zieldateinamens nichts ein, wird der 
alte Dateiname mit der Extension 
.KOM (für komprimiert) als Name für 
die Zieldatei verwendet. 

Wird ein Zieldateiname ohne Exten¬ 
sion angegeben, wird ebenfalls .KOM 
angehängt. Achtung! Quell- und Ziel¬ 
datei dürfen keinesfalls identisch sein! 
Normalerweise wird dieser Fehler vom 
Programm erkannt. Wird jedoch einem 
Dateinamen ein Laufwerksbuchstabe 
mit “i:i“ vorangestellt, der mit dem ak¬ 
tuellen Laufwerk übereinstimmt, dem 
Zieldateinamen jedoch nicht, erkennt 
das Programm nicht, daß es sich um 
identische Dateien handelt. Der Benut¬ 
zer sollte also etwas aufpassen. 


Aufrufsyntax des Expanders: 


DEKOMP [ Dateiname [ Laufwerks¬ 
buchstabe ] ] 

Wird der Dateiname (der Name der 
komprimierten Datei, die wieder les¬ 
bar gemacht werden soll) nicht angege¬ 
ben, fragt ihn das Programm selbst ab. 
Die Angabe eines Ziellaufwerkes ist 
nur als Parameter von der Kommando¬ 
zeile aus möglich, wird also nicht nach¬ 
träglich abgefragt. Achtung! Bitte dem 
Laufwerksbuchstaben keinen Doppel¬ 
punkt nachstellen! Die lesbare Datei 
erhält automatisch den Namen, den sie 
vor der Komprimierung hatte. Nur für 
Festplattenbesitzer interessant sind die 
Größenbeschränkungen der Program¬ 
me: Es können nur Dateien bis knapp 8 
MByte (genau: 8191kByte) bearbeitet 
werden! 

(Andreas Feldner/rs) 


Dicso. Programm ist in Turbo-Pascal geschrieben. 
Für alle, die nicht über den entsprechenden Compiler 
verfügen, bieten wir die zwei lauffähigen Programme 
auf der Databox an. 
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Händlerverzeichnis—i 



PROGRAM FileKomp; { komprimiert Dateien ) 

{SR+-} 

TYPE Filename = STRING [8]; {Dateiname} 

FiieExt = STRING [3]; {Dateiextent} 

FileGesNam = STRING [20]; 

BytesBuffer = ARRAY [BYTE] OF BYTE; 

VAR Org, Neu: 

OrgPuffer, ZielPuffer, EBPuffer: 

Buffer; 

PunktPos: 

ER; 

Name: 

ame; 

Ext: 

xt; 

OrgGesName, NeuGesName: 
esNam; 

Hilfl, Anzahl, Wert, k, 

OrgPufZgr, ZielPufZgr, EBPufZgr: 

Loesch, Da teiEnde : 

AN; 

key: 

FUNCTION Exist ( Name: FileGesNam) :BOOLEAN; 
, ob Datei existiert} 

VAR F :FILE; 


FILE; 

Bytes 

INTEG 

FileN 

FileE 

FileG 

BYTE; 

BOOLE 

CHAR; 

{testet 


BEGIN 

ASSIGN (F, Name); 

($ 1-1 

RESET (F); 

{$ 1 +} 

Exist := (IORESULT = 0); 
CLOSE (F); 

END; 


PROCEDURE SchreibzielPuffer 
ffer ); 


(VAR PufferZeiger: BYTE; 
VAR Puffer: BytesBu 


BEGIN 

BLOCKWRITE (Neu, Puffer, 2); 
PufferZeiger := 0; 

END; { SchreibZielPuffer } 


PROCEDURE WritelnNeu (Wert: BYTE); 

{ ZielPuffer und ZielPufZgr werden global importiert } 
BEGIN 

ZielPuffer [ZielPufZgr] := Wert; 

IF ZielPufZgr = 255 

THEN SchreibZielPuffer (ZielPufZgr, ZielPuffer) 

ELSE ZielPufZgr := SUCC (ZielPufZgr); 

END; { WritelnNeu } 


PROCEDURE SchreibEBPuf (VAR EinzelBytes: BytesBuffer 

VAR Zeiger: BYTE 


VAR Zaehler: BYTE; 

{ leert den Puffer fuer einzelne Bytes } 

BEGIN 

IF Zeiger = 1 
THEN BEGIN 

{ fuer ein einzelnes EinzelByte lohnt sich der Wech 
sei d. Datenformate nicht. } 

WritelnNeu (1); 

WritelnNeu (EinzelBytes [PRED (Zeiger)]); 

END 

ELSE BEGIN 

{ gesondertes Format fuer einzelne Bytes, damit die 
se nicht 2 Bytes belegen. ) 

WritelnNeu (0); 

WritelnNeu (Zeiger); 

FOR Zaehler := 0 TO PRED (Zeiger) DO 
WritelnNeu (EinzelBytes [Zaehler]); 

END; 

Zeiger := 0; 

END; { SchreibEBPuf } 

PROCEDURE SchreibEinzelByte (VAR Anz, wert, Pufferzeige 
r: BYTE; 

VAR Puffer: 

BytesBuffer); 

VAR Zaehler: INTEGER; 

BEGIN 

{ wenn einzelne Zeichen auftreten, Sonderregelung } 
FOR Zaehler := 1 TO Anz DO BEGIN 
Puffer [PufferZeiger] := Wert; 

PufferZeiger := SUCC (PufferZeiger); 
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IF Pufferzeiger = 255 
THEN 

SchreibEBPuf (Puffer, Pufferzeiger); 

END; 

END; { Zwischenspeicherung von Einzel-Bytes } 

FUNCTION LiesSequenz (VAR Zeiger: BYTE; 

VAR Puffer: BytesBuffer; 

VAR Anzahl, Wert: BYTE ): 

BOOLEAN; 

VAR Weiter: BOOLEAN; 


FUNCTION IncZeiger (VAR Zeiger: 

VAR Puffer: 


BOOLEAN; 


BYTE; 

BytesBuffer ): 


BEGIN ( erhoeht den Zeiger und liest ggf. neuen Puf 
fer ein J 

IncZeiger := TRUE; 

Zeiger := SUCC (Zeiger); 

IF Zeiger = 128 
THEN 

IF EOF (org) 

THEfo BEGIN 
IncZeiger := FALSE; 

Zeiger := 127; 

END 

ELSE BEGIN 
IncZeiger := TRUE; 

BLOCKREAD (Org, Puffer, 1); 

WRITE (#13, PRED (FILEPOS (Org)) * 128.0:5:0); 
Zeiger := 0; 

END; 

END; { IncZeiger } 

BEGIN 

Wert := Puffer [Zeiger]; 

Weiter := IncZeiger (Zeiger, Puffer); 

Anzahl : = 1; 

WHILE Weiter AND (Puffer [Zeiger] = Wert) AND (Anzahl 
< 255) DO BEGIN 

Weiter := IncZeiger (Zeiger, Puffer); 

Anzahl := SUCC (Anzahl); 

END; 

LiesSequenz := Weiter; 

END; { LiesSequenz } 


BEGIN { Hauptprogramm } 

( Bildschirmaufbau ) 

WRITELN; 

LOWVIDEO; 

WRITELN (' 

WRITELN (' Dateienkomprimierer 
WRITELN (' KOMP 2.1 

WRITELN (' (wr) 1990 A F S C 
WRITELN (' 

NORMVIDEO; 


{ Kommandozeile auswerten } 

IF (PARAMCOUNT > 0) 

THEN BEGIN 

OrgGesName := PARAMSTR (1); 

IF PARAMCOUNT = 2 
THEN NeuGesName := PARAMSTR (2) 

ELSE NeuGesName := "; 

END 

ELSE BEGIN 

WRITE ('Bitte Namen der Original-Datei eingeben:'); 
READLN (OrgGesName); 

WRITELN ('Bitte Namen der Ziel-Datei eingeben:']; 
WRITELN (' - bei Leereingabe wird alter Name mit Ex 

tension ".KOM" uebernommen'); 

WRITELN (' - fehlt die Extension, wird ".KOM" angeh 

aengt'); 

WRITE ('>'); 

READLN (NeuGesName); 

END; 

PunktPos := POS ('.', OrgGesName); 

IF PunktPos = 0 

THEN PunktPos := SUCC (LENGTH (OrgGesName)); 

IF NeuGesName = '' 

THEN NeuGesName := COPY (OrgGesName, l, PRED (PunktPo 


IF POS ('.', NeuGesName) = 0 
THEN NeuGesName := NeuGesName 4 '.KOM'; 

FOR k := 1 TO LENGTH (OrgGesName) DO 
OrgGesName [k] := UPCASE (OrgGesName [k]); 

FOR k := l TO LENGTH (NeuGesName) DO 
NeuGesName [k] := UPCASE (NeuGesName [ k]); 
IF OrgGesName = NeuGesName 
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THEN BEGIN 

WRITELN ( 'Der Quelldateiname darf nicht gleich dem Z 
ieldateinamen sein!') ; 

HALT¬ 

END; 

IF NOT Exist (OrgGesName) 

THEN BEGIN 

WRITELN ('Datei nicht gefunden'); 

HALT; 

END; 

WRITELN; 

WRITELN ('komprimiere ', OrgGesName, ' zu ', NeuGesNam 
e); 

WRITELN ('arbeite an Byte: '); 

{ Dateien eroeffnen } 

ASSIGN (Org, OrgGesName); 

RESET (Org); 

ASSIGN (Neu, NeuGesName); 

REWRITE (Neu); 

EBPufZgr := 0; 

OrgPufZgr := 0; 

ZielPufZgr := 0; 

( aus "historischen Gruenden" werden zunaechst 4 Null- 
Bytes geschrieben ) 

FOR k := l TO 4 DO 
WritelnNeu (0); 

{ zunaechst alten Dateinamen in neue Datei schreiben } 

IF POS (':', OrgGesName) = 2 
THEN OrgGesName := COPY (OrgGesName, 3, 18); 

FOR k := 0 TO 20 DO { Schreiben des alten Dateinamens 

WritelnNeu (ORD (OrgGesName [k])); 

{ Quelldatei auswerten } 

DateiEnde := EOF (Org); 

IF NOT DateiEnde 

THEN BLOCKREAD (Org, OrgPuffer, 1); 

WHILE NOT DateiEnde DO BEGIN 
DateiEnde := NOT LiesSequenz (OrgPufZgr, OrgPuffer, A 
nzahl, Wert); 

IF DateiEnde 
THEN WRITE ( A G); 

IF (Anzahl = l) OR ((Anzahl <= 3) AND (EBPufZgr >0)) 
THEN SchreibEinzelByte (Anzahl, Wert, EBPufZqr, EBPu 
f fer) 

ELSE BEGIN 

( muessen zunaechst zwischengespeicherte Bytes qesc 
hrieben werden? } 

IF EBPufZgr > 0 

THEN SchreibEBPuf (EBPuffer, EBPufZgr); 

WritelnNeu (Anzahl); 

WritelnNeu (Wert); 

END; 

END; { Datei zu Ende } 

IF EBPufZgr > 0 

THEN SchreibEBPuf (EBPuffer, EBPufZgr); 

{ letzten Record der Zieldatei mit Null-Records auffue 
llen } 

WHILE ZielPufZgr <> 0 DO 
WritelnNeu (0); 

( Anzeige des Komprimierungserfolges: } 

WRITE (#13, FILEPOS (Org) * 128.0 - 1:5:0); 

WRITELN (' Bytes --> ',FILESIZE (Neu) * 128.0 - 1:5:0, 

' Bytes'); 

IF FILESIZE (Org) <= FILESIZE (Neu) 

THEN BEGIN 
WRITELN; 

WRITELN ('Zieldatei nicht kleiner als Orginal '#252' 
Komprimierung nicht moeglich'); 

WRITELN ('Zieldatei wieder loeschen (J/N) ?'); 

REPEAT 

READ (KBD, Key); 

Key := UPCASE(Key); 

UNTIL Key IN ['J', 'N'] ; 

END 

ELSE BEGIN 
Key := 'N'; 

WRITE ('Die Datei wurde auf ', FILESIZE (Neu) * 100. 

0 / FILESIZE (Org):1:2); 

WRITELN ('% der urspruenglichen Laenge komprimiert.' 

) 'END; 

CLOSE (Neu); 

CLOSE (Org); 

IF Key = 'J' 

THEN ERASE (Neu); 

END. 
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PROGRAM FileDekomp; { dekomprimiert Dateien } 
{$R+> 


TYPE Filename = STRING [8]; {Dateiname} 

FileExt = STRING [3]; {Dateiextent} 
FileGesNam = STRING (201; 

DiskPuffer = ARRAY [BYTE] OF BYTE; 

VAR 


Org, Neu: 

EinPuffer, AusPuffer: 
EinPufZgr, AusPufZgr: 
k, ByteAnz, AktPos: 
OrgName, NeuName: 

Byt, Zahl, hilf: 
DateiEnde: 


FILE; 

DiskPuffer; 

BYTE; 

INTEGER; 

FileGesNam; 

BYTE; 

BOOLEAN; 


FUNCTION Exist ( Name: FileGesNam ): BOOLEAN; { t 
estet, ob Datei existiert } 


VAR F: FILE; 


BEGIN 

ASSIGN (F, Name); 

{$ 1 -} 

RESET (F); 

($1 + ) 

Exist := (IORESULT = 0); 
CLOSE (F); 

END; 


THEN BEGIN 

v/RITELN ('Datei nicht gefunden:', OrgName); 

HALT; 

JäND; 

ASSIGN (Org, OrgName); 

RESET (Org); 

BLOCKREAD (Org, EinPuffer, 2, k); 

EinPufZgr := 0; 

DateiEnde := FALSE; 

AktPos := 0; 

{ altes Dateiformat? (Zahl der Bytes in ersten zwei By 
tes) } 

ByteAnz := LiesByte (EinPufZgr, EinPuffer) + LiesByte 
(EinPufZgr, EinPuffer) * 256; 

IF ByteAnz <> o 
THEN BEGIN 

ByteAnz := ByteAnz + 4; 

WRITELN; 

WRITE ('altes Dateiformat. Dateigroesse: ' ) ; 

IF ByteAnz < 0 

THEN WRITE (65536.0 + ByteAnz : 5:0) 

ELSE WRITE (ByteAnz:5); 

WRITELN (' Bytes.'); 

WRITELN; 

END; { wenn altes Dateiformat } 

FOR k := 1 TO 2 DO 

Hilf := LiesByte (EinPufZgr, EinPuffer); 


FUNCTION LiesByte (VAR PuffZgr: 

VAR Puffer: 


TE; 


VAR Zaehler : BYTE; 

Hilf: INTEGER; 


BYTE; 

Diskpuffer ) : 


BEGIN 

LiesByte := Puffer [PuffZgr]; 

IF PuffZgr < 255 
THEN PuffZgr := SUCC (PuffZgr) 
ELSE BEGIN { neuen Block laden 
IF EOF (Org) 

THEN 

FOR Zaehler := 0 TO 255 DO 


Puffer [Zaehler] := 0 
ELSE BEGIN 

AktPos := FILEPOS (Org); 

BLOCKREAD (Org, Puffer, 2, Hilf); 
WRITE (#13, AktPos * 128.0 :5:0 ) ; 
END; 

PuffZgr := 0; 

END; | neuen Block laden } 

END; { LiesByte } 


BY 


PROCEDURE SchreibByte ( 


Wert: 

VAR Puffer: 
VAR PuffZgr: 


BYTE; 

DiskPuffer; 
BYTE ); 


{ alten Dateinamen lesen } 

FOR k := 0 TO 20 DO BEGIN 
hilf := LiesByte (EinPufZgr, EinPuffer); 

NeuName [k] := CHR (hilf); { Name der Datei vor der 
Komprimierung } 

IF k > 0 

THEN OrgName [k] := UPCASE (OrgName [k]); 

{ Namen d. kompr. Datei in Grossbuchstaben } 
END; { Schreiben des alten Extenten } 

IF (PARAMCOUNT > 1) AND (LENGTH (PARAMSTR (2)) = 1) 
THEN NeuName := PARAMSTR (2) + ':' + NeuName; 

IF OrgName = NeuName 
THEN BEGIN 

WRITE ('Name der Quell- und Zieldatei sind gleich. B 
enennen Sie bitte die '); 

WRITELN ('komprimierte Datei um'); 

WRITELN ('oder geben Sie ein anderes Ziel-Laufwerk a 
n.'); 

HALT¬ 

END; 

WRITELN ('Dekomprimiere ', OrgName, ' zu ', NeuName ); 
{ Ausgabedatei eroeffnen } 


{ Schreibt ein Byte in die Ausgabe-Datei } 

BEGIN { SchreibByte } 

Puffer [PuffZgr] := Wert; 

IF PuffZgr - 255 
THEN BEGIN 

BLOCKWRITE (Neu, Puffer, 2); 

PuffZgr := 0; 

END 

ELSE PuffZgr := SUCC (PuffZgr); 

END; { SchreibByte } 

BEGIN { Hauptprogramm ) 


{ Bildschirmaufbau ) 


WRITELN; 
LOWVIDEO; 
WRITELN ( 
WRITELN ( 
WRITELN ( 
WRITELN ( 
WRITELN ( 
NORMVIDEO 


Dateiendekomprimierer 
DEKOMP 2.2 
(wr) 1990 A F S C 


') 

') 


ASSIGN (Neu, NeuName); 

REWRITE (Neu); 

AusPufZgr := 0; 

WRITELN; 

WRITELN ('Arbeite an Byte: '); 

WHILE NOT DateiEnde DO BEGIN 
{ Anzahl der Bytes lesen } 

Zahl := LiesByte (EinPufZgr, EinPuffer); 

IF Zahl = 0 

THEN BEGIN { gemeinsamer Speicherblock f. untersch 
iedl. Bytes ) 

Zahl := LiesByte (EinPufZgr, EinPuffer); 

IF (Zahl = 0) AND (EOF (Org)) 

THEN DateiEnde := TRUE; 

FOR k := 1 TO Zahl DO 

SchreibByte (LiesByte (EinPufZgr, EinPuffer), AusP 
uffer, AusPufZgr); 

END 

ELSE BEGIN 

Byt := LiesByte (EinPufZgr, EinPuffer); 

FOR k := 1 TO Zahl DO 
SchreibByte (Byt, AusPuffer, AusPufZgr); 

END; { Block ausgewertet } 


WRITELN; 

WRITELN ('Syntax: DEKOMP Quelldateiname Ziellaufwerk') 

"wRiTELN (' ( Parameter optional )'); 

WRITELN; 

{ Kommandozeile auswerten } 

IF PARAMCOUNT > 0 
THEN OrgName := PARAMSTR (1) 

ELSE BEGIN 

WRITE ('Bitte Namen der komprimierten Datei eingeben 
: '); 

READLN (OrgName); 

END; 

IF POS ('.', OrgName) = 0 
THEN OrgName := OrgName + '.KOM'; 

IF NOT Exist (OrgName) 
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IF (AktPOS < 512) AND (AktPos * 128 + EinPufZgr = Byt 

THEN DateiEnde := TRUE; 

END; ( Datei zu Ende } 

IF AusPufZgr > 0 
THEN 

IF AusPufZgr <= 128 
THEN BLOCKWRITE (Neu, AusPuffer, 1) 

ELSE BLOCKWRITE (Neu, AusPuffer, 2); 

WRITELN; 

WRITELN (AktPos * 128.0 + EinPufZgr : 5 : 0, ' Bytes —> ' 
FILESIZE (Neu) * 128.0:5:0,' Bytes' ); 

WRITELN; 

WRITELN ('Umwandlung abgeschlossen.'); 

CLOSE (Neu); 

CLOSE (Org); 

END. 
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Mehr geht nicht! 

Mit Disckit von 0 auf 43 Spuren 
in 17,0 Sekunden 

Von LocoScript und CP/M her ist man es schon durch ausgiebige Patch-An¬ 
weisungen aus der PCI gewohnt, seine PCW-Disketten mit 43 Spuren zu for¬ 
matieren. Leider war dies jedoch immer mit dem Nachteil verbunden, daß 
diese Disketten nicht startfähig waren und somit ihr Dasein als Datendisket¬ 
ten fristeten. Auch die Geschwindigkeit beim Formatieren ließ immer zu 
wünschen übrig. Damit Sie sich daran nicht mehr stören müssen, wurde ein 
kleines Patch-Programm entwickelt, welches diese Mißstände beseitigt. 


Das erstellte BASIC-Programm erle¬ 
digt insgesamt fünf Änderungen, deren 
Bytes in den DATA-Zeilen ab 180 ab¬ 
gelegt sind: 

• Auf 43 Spuren bootfähig forma¬ 
tieren 

Da sich Disckit die zu formatierende 
Trackzahl aus einem frisch initialisier¬ 
ten XDPB (eXtended Disc Parameter 
Block) holt, muß der XDPB nach der 
Initialisierung geändert werden, was in 
Zeile 190 / 200 mit einem kleinen Ma¬ 
schinenprogramm geschieht. 

Außerdem muß der Bootblock der Disc 
auf 43 Spuren ausgerichtet werden. 

• Diskette bei der Option ’Formatie- 
ren’ nicht prüfen 

Bei Markendisketten kann man darauf 
sicherlich ohne großes Risiko verzich¬ 
ten, denn nur in den seltensten Fällen 
tritt beim Formatieren ein Fehler auf. 
Durch ein RET in Disckit wird verhin¬ 
dert, daß der gerade formatierte Track 
geprüft wird. Eine CF-2-Diskette wird 
somit in 17 Sekunden formatiert, eine 
CF2-DD kann sogar in 66 Sekunden 
formatiert werden. 


• Disketten können im Laufwerk 
bleiben 

Damit die Disketten nicht vor und nach 
jeder Operation aus dem Laufwerk ge¬ 
nommen werden müssen, wird die Ma¬ 
schinenroutine von Disckit durch ein 
eingeschobenes RET — also einen 
Rücksprung aus der Routine - vorzei¬ 
tig abgefangen. 


• Den Fehler ’unerheblihc’ in ’uner- 
heblich’ korrigieren 

• Outfit ändern 

Damit man die neue Disckit-Version 
sofort erkennt, wird die Startmeldung 
etwas angepaßt. Das neue Aussehen kön¬ 
nen Sie der Abbildung I entnehmen. 

(Bernhard Graßhoff/rs) 


Dieses Programm ist in Basic ge¬ 
schrieben. Nach den Eingaben sollte 
es zuerst mit SAVE “DISCKIT.BAS“ 
<RET> abgespeichert werden. 
Führen Sie den Patch nur auf einer 
Kopie Ihrer Originaldiskette durch, 
damit das Original noch erhalten 
bleibt. 

Für eventuelle Schäden, die durch 
die Nutzung des gepatchten Disckit 
entstehen können, übernimmt weder 
der Autor noch der Verlag irgendeine 
Haftung. 


DISC KIT v l.W 
JOVCE & CP/« Plus 

f 1390 Anstrad + iTÜl a-id Locoeotive Software Ltd. 


Zwei Laufwerke in Betrieb 


f 6 
f S 


f 4 

f 3 


frograim verlassen 


EXIT 


f 2 
f 1 


Kopieren 


Fomtieren 


Prüfen 


LISTING > DISCKI T <, REMARK = > <. 

<56> 10 REM DISCKIT VI.21 Patchprogramm 

<56> 20 PRINT CHR$(27) + "E"-*-CHR$(27) + "H"; "Bitte Diskette 
mit DISCKIT einlegen !" 

<70> 30 PR INT: PR INT — Taste —" 

< 8 > 40 t$=INPUT$ < 1) 

<85> 50 OPEN "R",#1, "diseki t. com" , 1 

< 88 > 60 FIELD «1.1 AS byte$ 

< 65 > 70 READ adr$,zahl 

< 1 6 > 80 IF ad r$ = "ENDE" THEN 160 

<93> 90 start = VAL( "&H"+adr$)-S.HFF 

< 38 > 100 FOR i=sta rt T0 s tar t + zah1 -1 
<41> 110 READ aender$ 

< 29 > 120 LSET byte$ = CHR$(VAL("&H" + aender$ ) ) 

< 73> 130 PUT #1,i 

< 42 > 140 NEXT 

<80> 150 GOTO 70 

<88> 160 CLOSE 

< 2 8 > 170 PRINT CHR$(7):PRINT Fertig." 

< 39 > 180 END 
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<17> 190 XBIOS-Vektor "Seiest Format verbiegen 

< 60 > 200 DATA 025A,01,59 

< 9 > 210 "XDPB für A; auf 2BH Spuren 

< 64 > 220 DATA 0459,09,CD,3B. 04,21, 5C,FF, 36, 28,C9 

< 7> 230 bei "FORMATIEREN" Track nicht prüfen 
<34> 240 DATA 0756,01,09 

< 4 6 > 250 "nicht prüfen, ob Disc Im Laufwerk 
<13 > 260 DATA 0CE2,01,09 

<75> 270 Fehler unerheblich berichtigen 

< 7 > 280 DATA 13A2,03,63,68,20 

< 7 0 > 290 "DISCKIT Startmeldung andern 

< 7 4 > 300 DATA 17 69,02,35,30 

< 7 7 > 310 DATA 1 789,02,39,30 

<93> 320 DATA 1794,06,28,20,18,70,20,42 

< 2 > 330 DATA 179C, 17,6E,68,61, 72, 64,20,47, 72,61, 7E,68 , 

6F,66.66,20,16,71 

<61> 340 'Spureintrag auf Disc auf 2 BH setzen 

< 3 9 > 350 DATA 1AC2,01,2B 

<49> 360 'Prüfsumme korrigieren (= F 7 H - Trackzahl) 

<44> 370 DATA lCBF.Ol.CC 

< 6 > 380 DATA ENDE,00 
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-AMS-Line- 

Der direkte Draht zur Firma AMSTRAD 


Grafikaufrüstung für den PC1512 

Die CGA-Grafikkarte des PC 1512 ist 
nicht für alle Anwendungen optimal. 
Eine Umrüstung auf eine andere Grafik¬ 
karte bis hin zu VGA ist möglich. 

HERCULES 

Diese Aufrüstung ist am einfachsten zu 
bewerkstelligen: Sie benötigen eine Stan- 
dard-Hercules-Karte und einen Hercu- 
les-Monitor. 

Die Hercules-Karte darf allerdings keine 
CGA-Emulation besitzen, da es sonst 
Konflikte mit der internen CGA-Karte 
gibt. 

Als Monitor verwenden Sie am besten 
den AMSTRAD PC-MD. da Sie über 
diesen auch direkt wieder eine Stromver¬ 
sorgung für Ihr Gerät haben. 

Das Videokabel des Monitors wird direkt 
an den Ausgang der Hercules-Karte an¬ 
geschlossen. 

Damit Ihr Gerät direkt auf die Hercules- 
Grafik umstellt, fügen Sie in die AUTO¬ 
EXEC.BAT die Zeile MODE MONO 
ein. 

EGA/VGA 

Diese Aufrüstung ist etwas problemati¬ 
scher, da die interne CGA-Karte nicht 
abschaltbar ist und es durch Adreßüber- 
schneidungen zu Problemen kommen 
kann. Es gibt allerdings einige Karten, 
die dies lösen können. Als EGA-Karte 
können wir die EGA-Wonder der Firma 
ATI empfehlen. Diese lief bei uns im 
Test ohne größere Probleme. Auch hier 
benötigen Sie einen neuen Monitor, am 
besten den PC-ECD von AMSTRAD 
(siehe oben). Zur Aufrüstung auf VGA 
haben wir selbst keine Tests durchge¬ 
führt. Interessenten wenden sich am be¬ 
sten an die Firma PC-Technik in Hennef, 
die eine solche Aufrüstung für den 
PC 1512 anbietet. 

PC1640 - Hardcopy mit MDGRAPH 

Bei der Software des PC 1640 wird ein 
Utility-Programm mitgeliefert, das es er¬ 
möglicht. von Hercules-Grafiken Bild¬ 
schirm-Hardcopies zu erstellen. 

Das Programm MDGRAPH wird dazu 
resident in den Arbeitsspeicher geladen 
und durch die PrtScr-Taste aktiviert (sie¬ 
he S. 379 im Handbuch). 

MDGRAPH ist für 9-Nadel-Matrix- 
drucker ausgelegt, die Steuersequenzen 
entsprechen denen eines EPSON- 
FX-Druckers. Bei einigen Druckern an¬ 
derer Firmen - vor allem, wenn sie im 
IBM-Modus betrieben werden - läuft 
zwar der Grafikausdruck fehlerfrei ab, cs 


erscheinen jedoch weitere Streifen zwi¬ 
schen den einzelnen Zeilen. Dies ist dar¬ 
auf zurückzuführen, da MDGRAPH. 
wenn es aktiviert wird, zunächst den Zei¬ 
lenabstand des Druckers umstellt. Dazu 
benutzt es den Steuercode "ESC A“ - 
Umstellung auf n/72 Zoll. 

Sollte bei Ihrem Drucker das beschriebe¬ 
ne Problem auftreten. so vergewissern 
Sie sich im Druckerhandbuch, ob das Ge¬ 
rät vielleicht diesen Steuercode nicht ver¬ 
steht. Sie können dann eventuell auf eine 
andere Steuersequenz ausweichen — 
zum Beispiel: "ESC 3" (n/180 Zoll). 

Was muß dazu geschehen? 

Machen Sie eine Kopie Ihres Programms 
MDGRAPH. am besten direkt mit neuem 
Namen (zum Beispiel: MD- 

GRAPH1.COM) 

Rufen Sie das Programm DEBUG auf: 
"DEBUG MDGRAPH1.COM" (DE¬ 
BUG und MDGRAPH 1 müssen hierbei 
im selben Verzeichnis sein). 

Wenn erscheint, rufen Sie mit “e 
ds:02BB" den Editiermodus auf. 
An der Speicherstelle 02BB beginnt die 
Sequenz zur Einstellung des Zeilenvor¬ 
schubs, nacheinander stehen hier die 
Bytes “1B", “41" und "08“. Für die 
oben angesprochene Umstellung auf 
"ESC 3“ müssen die Werte “1B 33 18" 
eingetragen werden. Das jeweils folgen¬ 
de Byte erhalten Sie mit der Leertaste, 
die Eingabe wird mit der RETURN-Ta- 
ste abgeschlossen. Wenn Sie andere 
Steuer-Codes verwenden wollen, müssen 
Sie diese hier eintragen. 

Nach der Änderung der drei Bytes geben 
Sie “w" ein, und die veränderte Ver¬ 
sion wird abgespeichert. DEBUG meldet 
"schreibe 04D6 Bytes“, und er¬ 
scheint wieder. Jetzt können Sie DEBUG 
durch Eingeben von “q“ verlassen und 
Ihr neues MDGRAPH 1 testen. Nach 
Rücksprache mit Microsoft Abt. OEM- 
Vertrieb können wir zu Update-Anfragen 
auf Windows 3.0 folgende Auskunft 
geben. 

Microsoft "datet“ auch AMSTRAD- 
WINDOWS-Versionen für Endkunden 
auf. 

Dazu müssen die orginal AMSTRAD- 
WINDOWS-Disketten und ein Verrech¬ 
nungsscheck per 148.20 DM an Micro¬ 
soft eingesandt werden. 

Die Anschrift lautet: 

Microsoft GmbH 
Update Service 
Edinsonstr. 1 
8044 Unterschleissheim 
Bitte haben Sie Verständnis, daß durch 


die starke Nachfrage die Lieferung einige 
Tage in Anspruch nehmen kann. Weitere 
Informationen entnehmen Sie bitte den 
Anzeigen von Microsoft (zum Beispiel 
DOS International 8/90. Seite 48/49). 

Wenn Sie Fragen zu diesem Programm¬ 
paket haben (zum Beispiel Speicherin¬ 
stallation, Drucker-, Plottertreiber, 
Ltitf-Standards), wenden Sie sich bitte 
direkt an die Microsoft-Hotline, 
Telefon 089/31705 - 85. 

Bildschirmtreiber für MS-WORD 5 
auf PC 1640 MD 

Die neue Version des Textverarbeitungs¬ 
programms WORD verlangt - ebenso 
wie die neue Version von MULTIPLAN 
- die Installation eines Bildschirmtrei¬ 
bers. Installiert man WORD 5 auf dem 
PC 1640 mit MD-Monitor für Hercules- 
Grafik, was dem Modus der Grafikkarte 
entspricht, so erhält man mit dem Hercu- 
les-Treiber des Programms einen unan¬ 
genehmen Effekt: Das Bild läuft durch 
und läßt sich auch über den Vertical- 
Hold-Regler nicht mehr einstellen. Ohne 
die Installation kann das Programm aber 
nicht im Grafikmodus betrieben werden, 
so daß zum Beispiel die Preview-Funk¬ 
tion nicht genutzt werden kann. Auf¬ 
grund des großen Marktanteils der 
PC 1640-Geräte hat Microsoft für uns ei¬ 
nen speziellen Bildschirmtreiber ent¬ 
wickelt. Diesen können Sic von unserer 
Supporlabteilung erhalten, wenn Sie ei¬ 
nen ausreichend frankierten Rückum¬ 
schlag mit der Bitte um den Screen-Trei- 
ber für Word 5 einschicken. 

AMSTRAD GmbH 

Dreieichstr. 8 

6082 Mörfelden-WaBdorf 

Sie erhalten dann den benötigten Treiber. 
Diesen PC-MD.VID kopieren Sie ins 
Verzeichnis des bereits installierten 
WÖRD-Programms und benennen ihn in 
SCREEN.VID um. Nach dieser Ände¬ 
rung läßt sich WORD 5 auf dem PC 1640 
MD ohne weitere Schwierigkeiten im 
Hercules-Modus betreiben! 


Ihre 
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Neue PCs von Amstrad. Was ist anders zur alten Serie? Ein Testbe¬ 
richt gibt Aufschluß 



CPC 


Leider konnten wir die versprochenen 
Infos über die neuen CPCs nicht brin¬ 
gen, da nicht vorhersehbare Schwierig¬ 
keiten aufgetaucht sind. Wir bleiben 
aber am Ball und versuchen in den 
nächsten Ausgaben, die neuen CPCs 
ins Rampenlicht zu bringen. Doch bis 
dahin müssen Sie sich noch ein wenig 
in Geduld üben. 

Um Ihnen die Zeit so kurz wie möglich 
zu machen, gibt es für die nächste Aus¬ 
gabe der PC Amstrad wieder viele gute 
Programme. 



Ein Super- Vokabeltrainer für den CPC 

Für den Anwender bieten wir ein Werk¬ 
zeug zum leichten Erlernen von Voka¬ 
beln. Dieses Super-Programm ist so 
hervorragend gestaltet, daß wir es ein¬ 
fach veröffentlichen müssen. Die Mög¬ 


lichkeiten zum Lernen sind so vielfältig, 
daß Fremdsprachen viel mehr Spaß 
bringen als je zuvor. 



Memory, ein Denk-Spiel für Anspruchsvolle 


Für diejenigen, die sich auch einmal 
eine Pause gönnen wollen, bieten wir 
einiges an Spaßmachern an. Als Bei¬ 
spiel wäre Memory zu nennen, das für 
jedes Alter geeignet ist. 

Welche Software-Attraktionen sich 
noch in der nächsten Ausgabe befin¬ 
den, soll an dieser Stelle noch nicht ver¬ 
raten werden. 

Welche interessanten Spiele neu auf 
den Markt gekommen sind, können Sie 
in unseren Software-Reviews nach- 
lesen. 

PCW 


Auch in der kommenden Ausgabe bie¬ 
ten wir Ihnen einige hochinteressante 
Programme zum Abtippen an. Die ge¬ 


botene Software wird sich an den An¬ 
fänger wie auch an den eingefleischten 
PCW-Anwender wenden. 

PC 


Die große Überraschung der OrgaTech 
wird die Vorstellung der neuen Am- 
strad-PCs sein. Was sie zu leisten ver¬ 
mögen, und ob "des Amstrads neue 
Kleider" sich als das entpuppen, was 
sie versprechen, haben wir für Sie un¬ 
tersucht. 

Die PC Tools sind mittlerweile ein Be¬ 
griff auf dem PC-Markt. Die neue Ver¬ 
sion 6.0 ist in ihren Möglichkeiten stark 
erweitert worden. Was sich geändert 
und verbessert hat, können Sie in der 
nächsten Ausgabe lesen. 

Der Debug-Befehl gehört zu den MS- 
DOS-Kommandos, die so gut wie nie in 
ausreichendem Maße beschrieben 
werden. Die zugegeben etwas kompli¬ 
zierte Materie schreckt die Beschreiber 
des MS-DOS immer wieder ab. Wir ha¬ 
ben uns dieses Themas angenommen. 
SSI, das ist jenes amerikanische Soft¬ 
warehaus, das in der Vergangenheit 
durch militärische Kampfsimulationen 
unangenehmes Aufsehen erregt hat. 
Daß das Haus auch in der Lage ist, 
spannende Unterhaltungssoftware 
herzustellen, zeigen deren Fantasy-Pro¬ 
duktionen. Wir haben uns die neuen Pro¬ 
gramme von SSI genauer angesehen. 


DMV. 2, 53-58, 63-68,119,120 


Dobbertin Elektronik. 111 

FSE Strauß-Elektronik.93 

G + L electronic.75 
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PCW 

DATABOX 




DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 


DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Um Ihren Bildschirminhalt “Vom Bildschirm 
aufs Papier“ zu bringen, stehen Ihnen ab jetzt 
ganz neue Dimensionen im Bereich der Hard¬ 
copies für Ihren PCW zur Verfügung. Entneh¬ 
men Sie der DATABOX neben dem lauffähigen 
Programm auch den umfangreichen Quellcode. 


Zeitzeichen 

Daß der PCW über einen internen Timer ver¬ 
fügt, ist inzwischen kein Geheimnis mehr. Wie 
man jedoch mit diesem arbeiten kann, hat Ih¬ 
nen unser Artikel verraten. Die Databox enthält 
die zwei Beispielprogramme zum Auslesen und 
Beschreiben der internen Uhr des PCW. 


Mehr geht nicht 

Oder können Sie sich vorstellen mit Disckit eine 
CF2-Diskette in weniger als 17 Sekunden zu 
formatieren? Unser Patchprogramm macht dies 
möglich. 


Für immer und ewig... 

...können Sie Ihre Daten zwar nicht mit unse¬ 
rem Dateikompressor ablegen, eine Archivie¬ 
rung auf einen 'etwas’ kürzeren Zeitraum ist je¬ 
doch möglich und bestimmt auch sinnvoll. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24,- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
4,- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
6,- DM 

Endpreis 

28.- DM 

Endpreis 

30,- DM 


Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bel Lieferungen Ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 





















Wissen ist Macht. 

Neu im DMV-Verlag: Computer-Wissen. Ein Magazin, 
das Ihnen Wissen über Ihren PC vermittelt, das andere nicht haben. 

Unsere Themen: Alles, was Ihnen hilft, den PC besser zu nutzen und zu 
verstehen. Mit DMV-Computer-Wissen steht Ihnen das gesamte Know-how der 
DMV-Redaktionen in leichtverständlicher Form zur Verfügung. 


Aus dem Inhalt: 

Programme: 

- Deutsche Fehlermeldungen in 
GW-BASIC 

- Datei- und Verzeichniswahl mit 
Cursortasten 

- BASIC-Programme automatisch 
strukturieren 

- Konvertierungsprogramm 
von GW nach Turbo 

Routinen: 

- Umfangreiche Berechnungs¬ 
funktionen 

- Konfiguration feststellen 

- Hardcopy programmgesteuert 

- Grafikroutinen 

- Mausroutinen mit Testprogramm 

Specials: 

- Kalenderberechnungen 

- Wahrscheinlichkeit und Statistik 

- Literaturverzeichnis zum 
Thema BASIC 

Und vieles anderes mehr: 

Insgesamt über 500 Funktionen! 

Damit Sie das Rad nicht ständig neu er¬ 
finden müssen, steht Ihnen im ersten 
Band von DMV-Computer-Wissen eine 
in Umfang und Vielfalt unvergleichli¬ 
che Routinensammlung für Ihre eige¬ 
nen Programme in GW-, Turbo- und 
Quick BASIC zur Verfügung. Alle Li- 
stings und Programme sind auch auf 
Diskette erhältlich. 



Super-Toolbox für 
eigene Programme 


BASIC-Routinensammlung 
mit über 500 Funktionen! 


Deutsche Fehlermeldungen 
zum ’Nachladen’ 


Programmkonverter 
GW- ■> Turbo BASIC 


’Call Interrupt’ 
in GW-BASIC 




AB SOFORT IM HANDEL 


DMV-Computer-Wissen Band 1 : Basic-Toolbox 18 , - DM* 

DMV-Computer-Wissen IDATABOX (2 stck. 5 1/4“ und 1 stck. 3 1/2“) je 35 , - DM* 

* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4, - DM 
bzw. für das Ausland 6, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag • Postfach 250 ■ 3440 Eschwege /pjUv^ 
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